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8 EALOG ( 
LANGUAGE (BL1I$$32) 
ADDRESSING_MODE (NONEXTERNAL=GENERAL), 
ADDRESSING MODE (EXTE 
IDENT = 'v04-000' 
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§ MODULE NML 
4 
RNAL=GENERAL), 


BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 
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is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COP 
:* ONLY IN ACCORDANCE WITH TH mM F 


IE 
; SUCH LICENSE AND WITH THE 
:® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:# COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
a 
& 
w 
® 
® 
® 
*& 
ie TRANSFERRED. * 
® 
® 
& 
® 
® 
* 
® 
® 
cd 
® 


SOSSSOSOSOSOSOOSOSOOSOSOOO 
MMM 2 3333 3S OOOO 


FWN "SO OBNOUSWN S(O OONOAUES WN OOONOU 


'@ 

's THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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'® 

'® DIGITAL ASSUMES NO RESPONSIBI 
i. SOFTWARE ON EQUIPMENT WHICH | 
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9 3 FACILITY: DECnet-VAX V2.0 Network Management Listener 
0 7 ! ABSTRACT: 
0 § i This module contains routines for processing the NCP SHOW and LIST 
ok LOGGING commands. 
04g | ENVIRONMENT: VAX/VMS Operating System 
O64 AUTHOR: Distributed Systems Software Engineering 
046 i CREATION DATE: 30-DEC-1979 
4 04 } 
re beS MODIFIED BY: 
50 50 1! v03-007 MKP0013 Kathy Perko 12-April-1984 
5 be Add area 1 fix to nodes displayed in logging databases. 
: 4 i v03-006 MKPQO12 Kathy Perko 21-Mar-1984 
&% 54 : Don't open permanent database if it's not a permanent database 
s bee operation. 
5 089 i v03-006 MKP0011 Kathy Perko 5-Aug-1983 
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arene node permanent database to multiple ISAM keys to make it 


v03-006 MKP0010 Kathy Perko 23-Nov-1982 
Add module as a source for events. 


v03-005 MKP0009 kathy Perko 18-0c t-1982 
Leave permanent database files open until LIST command is 
finished. This avoids corn" and closing files (notably 
the node file for LIST KNOWN LOGGING) several times. 


V03-004 mKP0008 Kathy Perko 12-0ct-1982 
Report logging events even if executor address is zero. 
This allows events to come out for nodes with only PSI. 


V03-003 MKP0007 Kathy Perko 20-Sept-1982 
Redesign the boagin database so that, when the executor 
node is the sink node, it is stored with a node address of 
zero. LIST LOGGING translates this to the real address of 
the executor node. Storing the executor node address this 
wey allows the logging data base to be transportable to other 
nodes. 


v03-002 MKP0006 Kathy Perko 10-July-1982 
Expand NMLSGET_ENTITY_IDS to get entity's with qualifiers. 


v03-001 MKPO00S gerty Perko 22-May-1982 
Change NETACP Q10 interface to double search key and 
add X-25 stuff. 


V02-004 MKP0004 covhy Perko 01-Dec-1981 
Supp Ly P3 parameter for calls to NMLSNETQIO so that 
debug logging only dumps pertinent contents of P4 buffer. 


v02-003 MKP0003 Kathy Perko 28-Nov-1981 
Fix read summary and events for the executor so 
that the parameters are returned in numerical order. 


V02-002 MKP0002 Kathy Perko 16-Nov-1981 
Add circuits to logging source ids. 


V02-001 MKPO01 Kathy Perko aeiiye ite’ 
change parameters in call to NMLSGET_ENTITY_IDS for 
new 910 interface to NETACP. 
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1 ZSBTTL ‘Declarations’ 


wg 


—J 
@ 


LES = 


Se em ea a ak ad a at ot = ot = = ts 1 od 2 A ss 84s 1 2) 2 os 1 3 1 
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uw 


i 
TABLE OF CONTENTS: 


FORWARD ROUTINE 


nm $readknolog : NOVALUE, 
nm $readactlog : NOVALUE, 
nml$readlogging : NOVALUE, 
L_lLisknosnk : NOVALUE, 
nm _shoknosnk : NOVALUE, 
nml_lislogsnk : NOVALUE, 
nml_shologsnk : NOVALUE, 
nml_readexesnk : NOVALUE, 
nml_lisexesnk, 
nml_shoexesnk, 
nml_read_exec_sink : NOVALUE, 
na} .coedennne : NOVALUE, 
nml_format_sink_in_NICE: NOVALUE, 
nml_readlogsrc : NOVALUE; 


INCLUDE FILES: 


IBRARY ‘'LIBS:NMLLIB.L32'; 
iba *SHRLIBS:NMALIBRY.L3 


L 
L RL 2°: 
LIBRARY *SYSSLIBRARY:STARLET.L32'; 
1 

| EQUATED SYMBOLS: 


i OWN STORAGE: 


bb a a a st a st a a tn ts te a a a tt tb tt tt 


PRLLLLE SE SWUWWWUWWWUIWIUonononononononon) 3] 3 3 0 


: Executor sink node address. 


NMLSW_EXEADR : WORD; 
Entity buffer and descriptor. 
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fe aw few wm Dw fw wm fe ww ww law fw la la lan la lola lololololololololelealeleolololololelol alo lololololo) 


NMLST_ENTITYBUF : BB 


LOCK CNMLSK_ENTBUFLEN), 
NML$Q_ENTITYDSC : DESC 


RIPTOR; 


EXTERNAL REFERENCES: 


SNML_EXTDEF ; ! Define common external data 
EXTERNAL 
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YO%~080 Secleration’ 12-0R=]38e 98:85:73 HAN ssa ee Ne Os5, 9 02) 
$ 16 18¢ } nml$gb_ncp_version; 
: 164 168 1 EXTERNAL ROUTINE 
: 165 164 1 NML SOPENF ILE 
: 166 165 1 SEARCHFLO, 
; 16 166 1 NMLSADDMSGPRM, 
: 168 167 1 L$BLO_REPLY. 
; 169 168 1 L$BLDP2, 
: 170 169 1 LSERRO 
: 171 170 1 NMLSGETEXEAOR 
: 138 153 i NAL SCET ENTITY IDS 
: 17% 158 1 LS$GETRODNAM,~ 
: 175 17%4 1 NML$GETNXTEVT, 
: 176 175 1 NMLSGETNXTSN 
: 177 0176 1 NMLSGETCOMFILTERS, 
: 178 0177 (1 LS$MATCHRECORD, 
: 179 0178 1 LSNETQIO, 
: 180 0179 1 NMLSSEND; 
: 181 0180 1 
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ZSBTTL "NMLSREADKNOLOG Read known Logging pereneters 
GLOBAL ROUTINE NMLSREADKNOLOG (ENT, INF, DUM1, DUM2) : NOVALUE = 


'o¢ 


FUNCTIONAL DESCRIPTION: 


This routine returns permanent data base information for 
all logging sinks. 


i 

' 

i FORMAL PARAMETERS: 
ENT Entity type code. 

: INF Information type code. 
: DUM] Not used. 

DUM2 Not used. 

{ IMPLICIT INPUTS: 

NONE 

i IMPLICIT OUTPUTS: 

NONE 

| 

i 

i 

' 

i 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


BEGIN 


' Return data base information for console, file, and monitor sinks. 
" NMLSREADLOGGING (.ENT, .INF, NMASC_SNK_CON, 0); 
NMLSREADLOGGING (.ENT, .INF, NMASC_SNK_FIL, 83 
NMLSREADLOGGING (.ENT, .INF, NMASC_SNK_MON, 0); 


END; ! End of NMLSREADKNOLOG 


-IDENT \vO04 
~PSECT SOWNS,NOEXE ,2 
00000 NML$W_EXEADR: 


0002 *BLKB 
tii NML$T_ENTITYBUF : 
.BLKB 64 


-TITLE NM PRE AL OG NML Read logging parameter module 


NMLSREALOG NML Read logging parameter module 1b-5e Sep-1 9: AX-11 Bliss-32 V4.0-742 
vO%~000 NM SREADKNOLOG Satad known oe parameters 730071382 99: 333 ENA. SRCINMLREALOG.B32;1 

00044 NMLSQ_ENTITYDSC: 3 
-—BLKB 8 : 
.EXTRN NMLSGB_EVTSRCTYP ; 
eEXTRN NML$GQ_EVTSRCDSC 3 
«EXTRN rage ET $ 
-EXTRN NML$GB_EVTMSKTYP ; 
eEXTRN NMLSGQ_EVTMSKDSC : 
-EXTRN NMLSGW_EVTSNKADR $ 
EXTRN NMLSGW-ACE, CHAN ; 
EXTRN NMLSGL-LOGMASK, NML$GQ_ENTSTRDSC ; 
EXTRN NML $AB_G1OBUFFER ; 
EXTRN NML$GQ_QI0BFDSC ‘ 
EXTRN NMLSAB_EXEBUFFER 
EXTRN NMLSGL-EXEDATPTR 
EXTRN NML$GQ-EXEDATDSC 
EXTRN NMLS$GQ_EXEBFDSC 
EXTRN NMLSAB_RCVBUFFER 
EXTRN NMLS$GQ_RCVBFDSC 
EXTRN NMLSAB-SNDBUFFER 
EXTRN NML$GQ_SNDBFDSC 


i 
EXTRN wie NAL _NMV, RMSEM 
EXTRN NML$ AB_RECEUE “WALSAL TPENT INF TAB 
EXTRN NMCSAL” PERMIN 
XTRN NMLSAW =pen DES, NL SGB_ CMD_VER 


R_PST 
TRN NMLS$GB~ “QUALIFIER? FORMAT 

TRN NMLSGB-FUNCTION ~ 

TRN NMLS$GB~INFO, NML$GB_OPTIONS 

TRN NAL SL =PRACODE DE NMLSGL_ PRS_FLGS 


TRN NMCSCET ENT 

TRN NMLSGETNOD DNARL “NMLSGETNXTEVT 

TRN sce ie NWMLSGETCOMFILTERS 
EXTRN NACSNETOIO. NMLSSEND 


-PSECT SCODES,NOWRT,2 
-ENTRY NMLSREADKNOLOG Saye R2 


0004 00 
52 00000000v 00 ae 00909 MOVAB NMLSREADLOGGING, R 
E 1 7D 00 MOVa #1, =(SP) 


n 3 
VOL=000-” —-NALSREADKNOLOG "Read known Logging parameters 12-Sep-198¢ 10:56:18 ENML-SRCINALREALOG- 83211 ingtt 


75 04 AC 7D 0000 mova —s ENT, =(SP) ; 
6 4 FB 0001 CALLS #4, NMLSREADLOGGING ; 
E 2 7D 0001 MOVG #2. =(SP) + 0222 
7 04 AC 7D 09016 mova ENT, =(SP) : 
6 04 FB OOOIA CALLS #4, NMLSREADLOGGING : 
7E 3 7D 0001D MOV #3. -(SP) + 0223 
? 04 AC 7D 00020 MOVa ENT, -(SP) : 
6 04 FB 00024 CALLS #4, NMLSREADLOGGING 3 
04 00027 RET + 0225 


; Routine Size: 40 bytes, Routine Base: $CODE$ + 0000 
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7286 Snead active logging parameters 1278601382 99:8037 NML.SRCINMEREALOG. 032; 
BITL "NMLSREADACTLOG Read active Logging arameters' 
OBAL ROUTINE NMLSREADACTLOG (ENT, INF, DUM1, DUM2) : NOVALUE = 


+ 
FUNCTIONAL DESCRIPTION: 
This Foyt ine returns permanent data base information for 


all active logging sinks. 
FORMAL PARAMETERS: 
ENT Entity type code. 
INF Information type code. 
DUM1 Not used. 
DUM2 Not used. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


BEGIN 

LOCAL 
BUFEND, 
LISDSC_: DESCRIPTOR, 
MSGSIZE, 


SNK 
STATUS 
STRTIFLG; P 


STRTFLG = FALSE; 
WHILE NMLSGET_ENTITY_1DS (NMLSC_SINK, NMASC_ENT_ACT, 0, .STRTFLG, LISDSC) DO 


STRTFLG = TRUE; 


PTR = .LISDSC COSCSA_POINTER]; 
BUFEND = .LISDSC CDSCSA_POINTER] + .LISDSC CDSC$W_LENGTH); 


WHILE .PTR LSSA .BUFEND DO 


ta SREALOG NML_ Read lo 
v04= NMLSREADACT 


Ber Bf 
: 5 4 
; 289 4 
; 290 87 4 
: 291 88 4 
3 Q 89 4 
; 2g 90 4 
: 294 8 91 4 
3 95 92 4 
; 296 02935 4 
3 97 94 

: $38 $596 

: $0 0297 1 


; Routine Size: 76 bytes, 


4 
ing parameter module 1-se -1984 00:29 
C86 Speed active logging parameters 137808-1 386 99:83: 
BEGIN 
SNK = .(.PTR)<0,32>; 
PTR = .PTR + 4; 


IF_.(.PTR)<0,32> NEQU NMASC_STATE_OFF 
NMLSREADLOGGING (.ENT, .INF, .SNK, 0); 
PTR = .PTR + 4; 


END; 
END; 
END; ' End of NMLSREADACTLOG 
003¢ 00000 .ENTRY NMLSREADACTLOG, Save R2,R3,R4,R5 
SE 08 C2 9000¢ SUBL2 # 
53 D4 0000 CLRL STRTELG 
4008 8F 8B 00007 1$: PUSHR #*M<R3,SP> 
7E 04 00008 CLRL  =(SP 
7E 02 CE 0000D MNEGL #2, -(SP) 
02 DD 00010 PUSHL # 
000000006 00 0S FB 90012 CALLS #5, NMLSGET_ENTITY_IDS 
2F 50 £9 0001 BLBC = RO, 
53 01 DO 0001C MOVL #1. STRTFLG 
52 04 AE v0 0001 MOVL  LISDSC+4, PT 
55 6E 3C 00023 MOVZWL LISDSC, BUFEND 
55 04 AE CO 90026 ADDL2  LISDSC+4, BUFEND 
56 52 D1 OO02A 2$: CMPL PTR, BUFEND 
D8 te 0002D BGEGU 1$ 
54 82 DO 0002F MOVL (PTR)+, SNK 
01 62 01 00 : CMPL (PTR), #1 
OF 13 0003 BEQL «6s 3$ 
7E 04 00037 CLRL =(SP) 
54 Dp 0039 PUSHL SNK 
7E 04 AC 70 00038 Ova. ENT, -(SP) 
00000000v 00 04 FB 003F CALLS #4, NMLSREADLOGGING 
52 a C 0046 3$: ADPL2 #4. PTR 
DF 11 0004 BRB 
04 00048 4$: RET 


Routine Base: $CODE$ + 0028 
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XSBTTL "NMLSREADLOGGING Read Logging arameters' 
GLOBAL ROUTINE NMLSREADLOGGING (ENT, INF, SNK, DUM2) : NOVALUE = 


'o4¢ 


| FUNCTIONAL DESCRIPTION: | 
Read logging parameters from the peramanent or volatile data bases. 
FORMAL PARAMETERS: 


i 

i 

i 

i 

i 

INF Information type code. 
i e. 

i 

le 


ENT Entity type code. 
SNK Sink type cod 
DUM2 Not used. 


BEGIN 
MAP 


ANAAN.A AAA NAAN 
Oooo 

Sisares 

polololo) 

asd 

Oo 

Oc 


AEN POS UO OI OOOO NP UI OO Bao 


nml\$gb_options : BBLOCK [1]; 
q 
Open the node data base file. 


if -nml$gb_options Cnma$v_opt_per] THEN 
nml$openfile (nma$c_opn_node, nma$c_opn_ac_ro); 


nml$c_summary, 


VEWN —ODODNOAULSWN —“OODNOULSWN O°” 


WA AAA NAA AA NIAAA 
AANA AIA AAAI AAI AAAI ANIA WII ANNA AW 
BBE EEE EE FMW WWIII AIP NININININID 2 OO OO seo da auto aa 


PHA =O OONAUN EWN 0 OD NOAUE WIN O ODNA NEWRY @ O OONOAOUS WN COONEY 


PUD B® BD BARES EE FAA NINIGIPIPODIPINIPINPINPIDINPININPINDINIDYD Se 


SOOOOOOCOSCOSOOSSOOOCOCOOCOOCOSOSOOOCOCOOOOOCOOCOCOCOOOOOOOOOCOOOO: 


SELECTONEU .inf OF 
ET 
nml$c_eventsJ: 
BEGIN 
36 i Check parse flags to see if this is for KNOWN SINKS or a single 
$30 ! sink node. 
339 IF fal Sal _prs_tlgs Cnml$v_prs_knosnk] THEN 
40 BEG! 
41 nml_readexesnk (.ent, .inf, .snk); 
rk i Decide if the operation is on the permanent or volatile data 
¢ bases. 
8 if “nat Soh ppt ions Cnma$v_opt_per] THEN 
rf 4 ; nmi _lisknosnk (.ent, .inf, .snk) 
9 3 nml_shoknosnk (.ent, .inf, .snk); 
50 ; END 
3) ; ELSE 
3g IF fat Sol pre. fies Cral$v_prg_exesnk3 THEN 
38 : nml_readexesnk (.ent, .inf, .snk) 
Boe 
58 5 i The NICE command is requesting logging information about 


SE 
BEGIN 


NMLSREALOG 
vat 


dD 4 
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5 ' a remote sink node. Now, call the appropriate routine to 
§ } get the information from the permanent or volatile databases. 
8 IF ota} Sop ppt ions Cnma$v_opt_per] THEN 
nml_lislogsnk (.ent, 
60 .inf, 
61 .snk 
6¢ -nml $gw_evtsnkadr) 
6 ELSE 
0 rf: nml_shologsnk (.ent, 
0 4] .snk 
6 nm $gw_evtsnkadr); 
0368 4 END; 
44 END; 
ba5e END; 
O36 Cnml$c_status, 
037 nml$c_characteristics): 
0373 nml_readexesnk (nml$c_sink, .inf, .snk); 
0 6 COTHERWISE): 
038 nml$error_1 (nma$c_sts_fun); 
0379 TES; 
0380 ! 
0381 ' Close the node data base file later, when the whole command has been 
Oeeg § } completed to avoid multiple opening and closing of the same file. 
0384 1 END; ! End of NMLSREADLOGGING 
007C 00000 ENTRY NMLSREADLOGGING, Save R2,R3,R4,R5,R6 
56 00000000v 00 9E 00002 MOVAB NML_READEXESNK, R6 
55 000000006 4 4 0009 MOVAB NMLSGB_OPTIONS, RS 
65 95 00010 TSTB NMLS$GB_OPTIONS 
9 18 Bot¢ BGEQ 1$ 
3 7C 0001 CLRQ -(SP) 
000000006 99 02 F BRi6 CALLS #2 WN, SOPENF ILE 
5 08 AC D0 00010 1$: MOVL HF, R 
9 1 } BEQL 
04 8 CMPL Ree "4 
6 4 BNEQ 7 
54 Oc AC D 2s: MOVL SNK, R4 
53 04 aS D C MOVL ENT, R3 
23 000000006 00 02 €1 C #2, NMLSGL_PRS_FLGS+1, 4$ 
14 6B PUSHR #*M<R2,R4> 
3 DD A PUSHL R 
66 F C CALLS #3, NML_READEXESNK 
g F TSTB L$GB_OPTIONS 
is 41 BGEQ 
4 6B te PUSHR #*M<R2,R4> 
33 DD 4 PUSHL R 
000000007 00 03 FB 00047 CALLS #3, NML_LISKNOSNK 


0299 


0323 
0324 


0398 
0337 
0337 


0342 
0343 


<= 
Pa 


mag 


; Routine Size: 


NML Read lo 
NMLSREADLOG 


174 bytes, 


aging porenpter module 
NG Read logging parameters 
04 
33 Hs 
00000000V 00 3 fe 
06 00000000G 00 €9 
14 BB 
7 
50 000000006 ! s 
5 
DD 
14 BB 
53 0D 
00000000v 00 04 fe 
50 DD 
14 BB 
53 DD 
00000000v 00 04 a 
5 
15 33 
02 52 01 
OB 1A 
Oc AC ODD 
52 DD 
O¢ DD 
66 05 FB 
04 
7E 01 CE 
000000006 00 01 fe 


Routine Base: $CODE$ + 0074 
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>>>? oO 
[oOwnN™ 


4 
-Sep-19 
f-sep-19 

3$: 

4$: 


5$: 


6$: 


Be 99:86:1 


ome Bliss-32 V4.0-742 
NML.SRCINMLREALOG.B32;1 


cata 

a. NML _ SHOKNOSNK 
NMLSGL_PRS_FLGS+1, 5$ 
#*M<R2,R4> 

R3 

8$ 

NMLSGW_EVTSNKADR, RO 
NML$GB_OPTIONS 

i 

#°M<R2,R4> 

#4, NML_LISLOGSNK 


RO 
predate 
#4, NML_SHOLOGSNK 


re NML _READE XE SNK 


#1, -(SP) 
#1, NMLSERROR_1 


0377 
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R i -Sep- :29: - -32 V4.0- 
CTSKNOSAR "East known Logging sink node par le-sep-1986 15:60:18 | ENML-SRCINALREALOG.83271 reer ls 


ZSBTTL_ "NML_LISKNOSNK List known Logging sink node parameters’ 
ROUTINE NML_LISKNOSNK (ENT, INF, SNK) : NOVALUE = 


14 
H FUNCTIONAL DESCRIPTION: 


This routine returns permanent data base information for 
all logging sinks. 


i 

i 

' 

i FORMAL PARAMETERS: 
Entity type code. 

; INF Information type code. 
Sink type code. 

i IMPLICIT INPUTS: 

; NONE 

i IMPLICIT OUTPUTS: 

NONE 

i 

i 

i 

i 

i 

i 

i 

i 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 
BEGIN 


LOCAL 
BLKDSC : DESCRIPTOR, 
KEY : WORD 
RECDSC : DESCRIPTOR, 
SNKADR : WORD; 


' Event parameter descriptor 
' Record key 

' Record descriptor 

! Sink node address 


' 
List parameters for all sink nodes for this sink type. 


KEY = 0; 

WHILE NMLSMATCHRECORD (.NMLSAB_ENTITYDATA C.ENT, EITSB_FILEID), 
NL $G0_RECBFOSC, 
NAL SAB_ENTITYDATA C.ENT 
i) : 
RECDSC) ‘DO 


f EIT$SW_KEY], 0, 0, 
! No qualifier 


Find the sink node address. 
BLKDSC CDSCSA_POINTER] = 0; 


<z 


4 
SREALOG NML Read logging parameter module 18-se -1984 00:29:5 AX-11 Bliss-32 V4.0-74 Page 14 
- NML_LISKNOSAE Psst known logging sink node par 1 ~$007 138% 19:88 78 YNML «SRC NALREALOG. 83244 ° (6) 
: 447 mh IF NMASSEARCHFLD (RECDSC cs oon 
; 44 44 BLKDSC beteu, CENGTH) 
; 450 45 BLKDSC COSCSA-POINTERS) 
: 451 46 THEN 
; 4 g 44 4 BEGIN 
; 4 4 sts 4 SNKADR = .(.BLKDSC COSCSA_POINTER])<0,16>; 
3; 65 1 4 ! Find the event parameter. 
3; 4 4 4! 
 ¢ a 3 4 BLKDSC CDSCSA_POINTER] = 0; 
; 6 4 IF NMASSEARCHFLD (RECDOSC 
: 460 439 4 NMASC_PCLO EVE, 
; 461 4 $ 4 BLKDSC COSC$W_LENGTH) 
: 46 457 4 BLKDSC CDSCS$A-POINTERS) 
: 46 438 4 THEN 
; 464 23 BEGIN 
: 466 0461 NML_READSNKNOD (.ENT, .SNK, .SNKADR, BLKDSC); 
: 468 bees 4 END; 
: 469 0664 END; 
5 KEY = .KEY + 1; 
471 7 E EY +1 
3; 47 6 
: Oh rhe: _— 
: 475 0470 1 END; ! End of NML_LISKNOSNK 
001C 00000 NML_LISKNOSNK: 
«WORD Save R2,R3,R4 3; 0386 
54 000000006 00 9 000 HOVAB NMASSEARCHFLD, R4 ; 
5E 14 C2 000 SUBL2 #20, SP ; 
E 84 0000C CLRW OKEY : 0430 
52 04 ac ¢ ¢5 0005 MULL3 #44, ENT, R2 > 04 
04 AE 9F 00013 18 PUSHAB RECDSC > 0431 
7E 7C O16 CLRQ = = (SP) ; 
7E 7C 0001 CLRQ —_ = (SP) : 
is 4 OOO1A CLRL = = (SP) : 
0000000060042 9F I SHAB NMLSAB_ENTITYDATA+3(R2) > 0434 
7E 9€ 3C MOVZWL a(SP)+> =(SP) : 
1c «OAE OOF § PUSHAB KEY > 0431 
90000000 9 3 PUSHAB NML$GQ_RECBFDSC ; 
7 G00 A F MOVZBL NAL SAB ENTITYDATACR2], -(SP) F 
000000006 0 QA FB 7 CALLS #10, NALSMATCHRECORD : 
4 0 € E LBC =—s&aRO,_: 38 : 
10 AE D4 CLRL —- BLKDSC +4 3 0441 
10 AE 9F 00044 PUSHAB BLKDSC+4 ; 0445 
10 AE 9F 00047 SHAB LKDSC > 0444 
7E f BF 9A OO04A MOVZBL #200, -(SP) ; 
AE F 0004 PUSHAB FCDS¢ > 0442 
64 04 FB 0005 CALLS #4, NMASSEARCHFLD > 0444 


ng 


3; Routine Size: 


NAL tree lo 
SKNOS 


NAL LL 


137 bytes, 


H 4 
B'"BiSt"Rnown’ Logging sink node par 1e-Sep-198¢ 99:80:18 | ERML -RCINALREALOG-B30+7 


g§ 


7E 


64 
13 
7E 


00000000v 00 


Routine Base: 


50 
1 B b 
1 A 
1 A F 
1 IN F 
10 AE 3 
50 £9 
oc OA F 
5 C 
OS AE DD 
04 FB 
E 86 
B 110 
04 0 


SCODES + 0122 


; 


4, SNKADR 


LKDSC 
SNKADR, =(SP) 
NK 


mMmouww 


NT 
#4, NML_READSNKNOD 
KEY 


a 


aA 


4 
ead logging parameter module 1b-se -1984 00:29:5 AX-11 Bliss-32 V4.0-74 P 16 
HOKNOS 2 Show known logging sink node par 1 ~300 71382 90:28 ia ENAL.SRe NMLREALOG.B32; — (7) 


YD 


BUFEND, 

LISDSC : DESCRIPTOR, 

MSGSIZE, 

PTR 

SNKADR : WORD, ! Sink node address 
STATUS 

STRTFLG; 

STRTFLG = FALSE; 


WHILE SECT ENTITY 105 (.ENT, NMASC_ENT_KNO, 0, .STRTFLG, LISDSC) DO 


NOUSWN oO 


ad st se ot 


MIPoPoPoTN 


WN =O ODONOU SW —O 0 


PTR = .LISDSC CDOSCS$A_POINTER); 
BUFEND = .LISDSC COSCSA_POINTER] + .LISDSC CDSC$W_LENGTH); 


WHILE .PTR LSSA .BUFEND DO 
BEGIN 


: 477 71 1 SSBTTL_ "NML_SHOKNOSNK Show known Logging sink node parameters’ ‘ 
3; 47 472 1 ROUTINE NML_SHOKNOSNK (ENT, INF, SNK) : NOVALUE = : 
; tb rif i 1o4 : 
; 481 479 i FUNCTIONAL DESCRIPTION: ; 
: 4 : i] 1 i This routine returns permanent data base information for : 
: re : +f8 : all logging sinks. : 
3 4 i FORMAL PARAMETERS: ; 
3 6 4 ii ENT Entity type code. : 
; 4 § 1! INF Taternetton type code. 3 
; 490 4 1! SNK Sink type code. 3 
; 491 5S oF 3 
; 49 4 $ 1 { IMPLICIT INPUTS: é 
ime Ripe : 
; 496 0490 1‘ IMPLICIT OUTPUTS: ; 
; 49 491 1! : 
m2 bears : 
; 500 94 1! ROUTINE VALUE: ; 
4 4 95 : COMPLETION CODES: : 
Bell = ; 
: 505 0499 1 | SIDE EFFECTS: ; 
; 506 3200 1! 3 
; 507 501 1! NONE : 
ee : 
; 504 1 F 
3 38 BEGIN ; 
3 0307 LOCAL 3 
; 3 ; 
; & 3 
; & ; 


PPV DVDPV PU DPUDPVDPV LUPUS DVUDVLIVSIUPVSUSUSISISI ST SISTA SII 


PUPP SVP 
ROROPONOPOPUNUN 3 2 OOO 
NOURWN @OODNOULWN OO 


SOOOCOOCOOOCOSOOOOOOOSooOo 


STRTFLG = TRUE; 


4 
wy, 88 ALOG NML Read Loaging parameter modyle 18-Sep-1984 90:99:33 AX-11 Bliss-32 V4.0-74 
Vv NML_SHOKNOS how known Logging sink node par 14-Sep-1984 12:50:1 NML .SRCINMLREALOG.B32; 
; 4 
; §35 ; 4 SNKADR = .(.PTR)<0,16>; 
; é NML_SHOLOGSNK (.ENT, .INF, .SNK, .SNKADR); 
: 4 PTR = .PTR + 4; 
; 540 4 & 
3 re. 5 _ END; 
3 rk 2 $ 
: 544 8 END; ! End of NML_SHOKNOSNK 
003C 00000 NML_SHOKNOSNK : 
.WORD Save R2,R3,R4,R5 
SE C2 0000 SUBL2 
D4 0000 CLRL STRTELG 
4008 8F 6B 00007 1$ PUSHR #*M<R3,SP> 
E D4 0000B CLRL  =(SP) 
7E 01 CE 0000D MNEGL #1, =(SP) 
04 AC DD 9019 PUSHL ENT 
000000006 00 5 FB 001 CALLS #5, NMLSGET_ENTITY_IDS 
: 0 € OO1A LBC ~=——saRO,_-38 
04 AE BO 001D OVL  LISpSC+4, PTR 
3 6— 3¢ 00021 MOVZWL LISDSC, BUFEND 
5 04 AE CO 00024 ADDL2  LISDSC+4, BUFEND 
55 5 DI 028 2$: CMPL PTR, BUFEND 
DA 028 BGEGU 1$ 
53 01 DO 0002D MOVL #1, STRTFLG 
4 62 0 0 MOV (PTR), SNKADR 
7E 54 3C 00 MOVZWL SNKADR, -(SP) 
7E 08 AC 7D 000 MOVO INF, =(SP) 
04 AC DD OO03A PUSHL ENT 
00000000v 99 04 FB 003p CALLS #4, NML_SHOLOGSNK 
04 CO 00044 ADDL2 #4. PTR 
DF 11 00047 BRB 
04 00049 38: RET 


; Routine Size: 74 bytes, 


Routine Base: 


SCODES + O1AB 


roe 


Kz 


$$ 


K 4 
ead logging parameter module 16-Sep-1984 00:29:5 AX-11 Bliss-32 
ISLOGS 2 Cast logging sink node parameter 1228681382 99°88 :3 ENML «SRC NMLREA 


ZSBTTL "NML_LISLOGSNK List toggin sink node parameters’ 
ROUTINE NML_LISLOGSNK (ENT, INF, SNK, SNKADR) : NOVALUE = 


wg 


4 


DD 


V4.0-76 Page 18 
ibe 2o3004 20e 8) 


33 
er 


ee 


FUNCTIONAL DESCRIPTION: 


This routine returns permanent data base information for 
all logging sinks. 


FORMAL PARAMETERS: 

ENT Entity type code. 

INF Information type code. 
SNK Sink type code. 

SNKADR Sink node address. 
IMPLICIT INPUTS: 

NONE 


' 

' 

4 

i IMPLICIT OUTPUTS: 
' 

' 

' 

i. 


DPAISIDIDIASIUIIT EE I~ 
DONA UVULS WN —OVOOAO 
PUPVIVIVSVUPVSUSVSVSVSUSISUSISUSIOSIOSISIOSIO 


PUPP EB EPP PEW 


NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


Pp 
SNKADR : WORD; 


1090909 NINN SIS NSIS IO AAA AOA Oo 


MEW 0 ODNAUES WN $9 OONAUE WN OOONOAOUE WO OONIOUS WH O0 


LOCAL 
BLKDSC : DESCRIPTOR, ' Event parameter descriptor 
KEY : WORD ' Record key 
RECDSC : DESCRIPTOR; !' Record descriptor 


' 
List parameters for the specified sink node. 


PESSESE RESP SEASONS SESE ORES 


KEY = 0; 
IF NAL SRATCHRECORD, ( .NMLSAB ENTITYDATA C.ENT, ELTSB_FILEIDI, 


SOOOOOOOOOOOOCOOOOOOOOSOSSOOOOOSOOSOOOOOO OOOO OOOOOO OOOO OOOO 


See eee ew wah ah ah ih th th dh oh hh hh hb eb ah ah eh ah ah ah eh ah 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 


fe ate alata) Mah al al ah Ab Ab Ah Ah Ab Ab Ab db db db db dd cb db hb bbb tb sh sh sh ah sh shah alah al eal 


95 NL $G0_RECBFDSC, 
9 NAL SAB ENTITYDATA C.ENT, ELT$W_KEY], 2, SNKADR, 
98 91 6 " ‘"No qualifier 
9 rEcDS§c) 
00 9 THEN 
1 94 BEGIN 
2 95 


0000 00000 NML_LISLOGSNK: 


tg 
5E 14 C2 O08 SUBL 
6— 84 0000 CLRW 
04 AE 9F 00007 PUSHAB 
7E 7C QOO0A CLRQ 
7E 04 0000C CLRL 
10 as F Bate PUSHAB 
g DD B65} PUSH 
50 04 Ac f 5 00013 MULL 
000000006004 F 00018 PUSHAB 
7E 9E 3C OOOIF MOVZWL 
1C Af F 000 ¢ USHAB 
000000006 00 9F 000 USH 
7E 0000000060040 9A 000 8 MOVZBL 
000000006 00 OA FB 000 ALLS 
2e 30 €E9 OO03A LBC 
10 AE 04 00030 LRL 
10 AE OF boee PUSHAB 
10 AE 9F 0004 PUSHAB 
7E C9 4 =8F 9A 00046 MOVZBL 
10 AE 9F Q004A PUSHAB 
000000006 00 & Fe 004D CALLS 
14 0 3 0054 LBC 
OC AE 9F 00057 USH 
7E 10 Ac 3C Bee MOVZWL 
Oc aC OD ‘ PUSHL 
04 AC DD 0006 PUSHL 
00000000v 00 04 FB 00064 CALLS 
04 00068 1$: RET 


; Routine Size: 108 bytes, Routine Base: S$CODES + O1F5 


75 Ax-11 Blis 20-74 
33 NML .SRC iaeaee EALOG ¢ib3ee4 


4 

SREALOG NML Read logging parameter module 16- Sep-1984 

- NML_LISLOGS GEAR Psst logging s sink node parameter 1 at 7 99: 3 
; 696 Hi } Find the event parameter. 
: 605 BLKDSC CDSCSA_POINTER) = 0; 
: 606 38 IF NMASSEARCHFLD (RECDSC 
; 60 6 9 NMASC_PCLO EVE. 
; 608 6 BLKDSC fost W_LENGTH) 
; 609 6 : BLKDSC CDSCSA-POINTERI) 
; 610 80 THEN 
; 611 604 NML_READSNKNOD (.ENT, .SNK, .SNKADR, BLKDSC); 
ho BRE mm 
: 615 be08 END; ! End of NML_LISLOGSWK 


Save nothin 
#20 SP . 


RO 
Raga LAT ETYDATAS3ERO3 
a(SP)+ -(SP) 


KE 
NML$GQ_R RECBEDSC 
WAL SAB ENTITYDAT Acro), -(SP) 
 NALSMA MATCHREC 


BLRDSC+4 
ett ti 


FL ae -(SP) 
psc 
#4, NMASSEARCHFLD 


KDSC 
SNKADR, -(SP) 


MnWnDDBRwD 
zz BoP Se 


T 
#4, NML_READSNKNOD 


Page A 


(8) 


0608 


wage 


De Se Be Se Se Se Se Se Se Se Be Se Se Se Se Be Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Ge Ss Se Se Geese Fe Se Se See Seas 


oa 
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WN SO OONOUS WN —O0OO~ 


PRAEAAAAAAAAAA AAA AAO 


pee ee eee be ty oe Ne 
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639 
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o AOAAAAAAAOOO 
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NML Read logging parameter module 16-Sep-1984 00:29:5 AX-11 Bliss-32 V4.0-742 
NAL SHOLOGSAR Snow Logging s nk node parameter 122860=1 38 99:83 3 ENAL.SRC NMLREALOG.B32;1 


$08 1 ZSBTTL "NML_SHOLOGSNK Show Loggin sink node parameters’ 
ei ! ROUTINE NML_SHOLOGSNK (ENT, INF, SNK, SNKADR) : NOVALUE = 
ele 1 !4¢ 
ol? ! FUNCTIONAL DESCRIPTION: 
gig 1! This routine returns volatile data base information for 
218 ! } all logging sinks. 
618 1 | FORMAL PARAMETERS: 
619 1! 
° 01! ENT Entity type code. 
1 Fi INF Information type code. 
6 § 1! SNK Sink type code. 
rah ! SNKADR Sink node address. 
625 1 | IMPLICIT INPUTS: 
6 § 1! 
6 as NONE 
628 1! 
8 4 } IMPLICIT OUTPUTS: 
0631 NONE 
$e3g 1 | ROUTINE VALUE: 
Beee ! COMPLETION CODES: 
a]; ume 
0638 SIDE EFFECTS: 
0640 1! NONE 
0641 1! 
a 
0644 BEGIN 
ek MAP 
O34? SNKADR : WORD; 
ek LOCAL 
0650 BLKDSC : DESCRIPTOR ! Event parameter descriptor 
651 UMDS : REF DESCRIPTOR, ! Dummy descriptor for table 
$36 NFBDSC : REF Oe Pea cee 
P2BUFFER : VECTOR CNMLS$K_P2BUFLEN, BYTE), 
$38 4 DSC : DESCRIPTOR, 
0696 PTR; 
$38 NMLSGETINFTABS (.ENT, {ire NFBDSC, DUMDSC, 0); 
65 P2DSC [DSC$W_LENGTH) = 80; 
660 P2DSC [DSC$A~POINTER) = POBUF FER: 
661 NMLSBLDP2 (07 .SNKADR, -1, 0, P2bSC, P2DSC); 
$6 IF NMLSNETQIO (.NFBDSC, P2DSC, P3, NML$GQ_QIOBFDSC) 
664 THEN 
665 BEGIN 


WAL SRE ALOG 


NML _SHOLOGS 


: 674 6 
oe 
: 678 rif 
: 679 671 
: 680 67 
> 681 67 

3; 682 674 


3; Routine Size: 122 bytes, 


gf 
Wat Shoe OoAe "enbe togg ng's a cate parameter 1 12 4 1382 98: 6:7 


N 
AX-11 Bliss-32 V4.0 
NML.SRCINMLREALOG. 835; 


PTR = -NALSGQ Q108 FDSC COSC$A_PO nye? 
BLKDSC CDSCSW7LENGTH] = .(.PTR)<O, 16>; 
BLKDSC CDSCS$A"POINTER] = .PTR + 
NML_READSNKNOD (.ENT, .SNK, "SNKABR, BLKDSC); 
END; 
END; ! End of NML_SHOLOGSNK 
0000 00000 NML_SHOLOGSNK: 
«WORD Sa ogehing 
SE CFF7C «CE. «9E 0000 HOVAB «= 132(SP). 8 
E D4 0000 CLRL = = (SP) 
04 AE 9F 00009 PUSHAB DUMDSC 
OC AE Hi b000¢ PUSHAB NFBDSC 
7E 04 AC 7D 0000F Ova ENT, -(SP) 
000000006 00 5 FB 00013 CALLS #5 NL SGETINF TABS 
OC AE 50 8F 9B OOOIA MOVZBW #86, P2DSC 
10. AE 14 AE 9E OOO1F VAB POBUFFER, P2DSC+4 
OC AE 9F 00024 PUSHAB P2DSC 
10 AE 9F 00027 SHAB P2DSC 
7E D4 OOO2A LRL ss = (SP) 
7E 01 cE 0002¢ EGL #i, -(SP 
7E 10 Ac 3¢ O00¢F MOVZWL SNKADR, -(SP) 
7E D4 000 3 CLRL =(SP 
000000006 00 06 FB 0003 CALLS #6, NML$BLDP2 
000000006 00 9F 00 C PUSHAB NAC Soae “QIOBFDSC 
OC AE OF 0042 PUSHAR P3 
14 AE 9F 0004 PUSHAB 
10 AE DD 00048 PUSHL NFBDSC 
000000006 09 04 FB 0004B CALLS #4, NMLS$NETQIO 
24 0 €9 00052 BLBC 
50 000000006 00 D0 0005 MOVL § NML$GQ_QIOBFDSC+4, PTR 
7c OAL 60 BO 0005¢ MOV (PTR), “BLKDSC 
FC AD 02 AO 9E 90060 MOVAB 2(RO). BLKDSC+4 
7 =AE OF 0006 PUSHAB BLKDS 
7E 10 AC 3C 00068 MOVZWL SNKADR, -(SP) 
OC AC DD 0006C PUSHL SNK 
04 AC ODD O06 PUSHL ENT 
00000000v 00 04 FB 000 2 CALLS #4, NML_READSNKNOD 
04 00079 1$: RET 


Routine Base: S$CODE$ + 0261 


Pe Se Se Se Ge Se Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Be Se Ge Ge Be Fe Ge Fe > Be Fe Ge Se 


0663 


0674 


<z 
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SREALOG NML Read logging parameter module 16-Sep-1984 00:29:5 AX-11 Bliss-32 V4.0-74 Page 22 
yo%~000 NML _READEXE SAK » st executor te node paramet 1 ~$007 1382 99:88:33 ENML «SRC NALREALOG. 03224 185 
= 675 1 XSBTTL "NML_READEXESNK List executor sink node parameters’ 

: ? 5 ole : ROUTINE NML_READEXESNK (ENT, INF, SNK) : NOVALUE = 

; of8 1 44 

: ? : of? } FUNCTIONAL DESCRIPTION: 

; 690 O68 1 i This routine returns permanent data base information for 
; $3) beng : all logging sinks. 

; 693 O68 i FORMAL PARAMETERS: 

: 695 88 $ 1 i ENT Entity type code. 

; 696 6 1! INF Information type code. 

; 697 0688 1! SNK Sink type code. 

; 698 0689 1! 

; 699 0690 1 !-- 

; 700 0691 1 

; 701 069 BEGIN 

: 4 069% p 

> 704 0695 NML$GB_OPTIONS : BBLOCK [1]; 

: 108 $69 LOCAL 

; 707 0698 ENTDSC _—: DESCRIPTOR, ! Entity descriptor 

: 708 0699 MSGFLG ! Response message flag 
; 709 0700 MSGSIZE, ! Message size 

: gi? 344 , STATUS; ! Temporary status 

: ne 145, | Set up the entity descriptor. 

: 714 0705 2 ENTDSC [DSC$W_LENGTH] = 1; 

; 3 9706 ENTDSC CDSCSA-POINTER] = SNK; 

: ate fai ; Set message flags. 

> 719 0710 2  MSGFLG = FALSE; ! No response messages 
: 720 0711 NMLSAB_MSGBLOCK CMSBSL_FLAGS] = MSBSM_ENTD_FLD; 

: 721 Orig NMLSAB_MSGBLOCK CMSB$B_CODE) = NMASC-STS_SUC; 

; 4 ; Belz NMLSAB_MSGBLOCK CMSBSA_ENTITY] = ENTDSC; 

: 734 0715 Build the message. 

; 726 or? NMLSBLD_REPLY (NMLSAB_MSGBLOCK, MSGSIZE); 

: i 0719 Decide if the operation is on the permanent or volatile data base. 
: 730 721 IF _.NMLSGB_OPTIONS CNMASVOPT_PER] 

; 4 § g STATUS = NML_LISEXESNK (.ENT, .INF, .SNK, MSGSIZE) 

; 134 125 STATUS = NML_SHOEXESNK (.ENT, .INF, .SNK, MSGSIZE); 

; , u 5 IF .STATUS 

; 738 u $ MSGFLG = TRUE; 

: 740 731 i Send the message. 


5 
NMLSREALOG NML Read logging parameter module these -1984 00:29:5 AX-11 Bliss-32 V4.0-742 Page 23) NF 
yo%~000 NML_READEXE SAK 9 ost executor sink node paramet 127808 - 1 3be 19:88 :3 NAL. SREINACREALOG B3009 . 183 vC 
: 741 7 g ! 
: 74 7 If .MSGFLG 
: 76 734 THEN 
5 ete f 5 NMLSSEND (NMLSAB_SNDBUFFER, .MSGSIZE); 
: 746 07 5 END; ! End of NML_READEXESNK 


000C 00000 NML_READEXESNK: 
oW RD 


; Routine Size: 113 bytes, Routine Base: S$CODES + 0208 


0 Save R2,R3 3; 0676 
53 000000006 00 90002 OVA NM $AB_MSGBLOCK, R3 : 
04 AE 01 t 0000 MOVW #1, ENTDSC + 0705 
08 AE Oc AC SE 9001 MOVAB SNK, ENTDSC+4 + 0706 
52 04 0001 CLRL  MSGFL t 0710 
63 10 Dd 90017 MOVL #16, NMLSAB_MSGBLOCK : 0711 
046 «A3 01 90 OOOIA MOVB 1, NMLS$AB_MSGBLOCK+4 3 Orig 
14 Ad 04 AE 9E 0001 MOVAB ENTDSC. NMC$AB_MSGBLOCK+20 : 071 
4008 8F 6B 000 PUSHR #*M<R3,SP> : 0717 
000000006 00 02 Fe 00 CALLS #2, NMLSBLD_REPLY ; 
000000006 09 3 00 E TST6 NM $6B_OPTIONS : 0721 
SE pp 900 PUSHL SP + 0723 
" 8 ERS OS ie. “un : 
00000000v 00 04 FB 0003 CALLS #4, NML_LISEXESNK : 
5E pp 00048 1§ PUSHL SP + 0725 
7E 08 AC 7D 0004A MOVQ. INF, =(SP) : 
04 AC DD O04 PUSHL EN ; 
00000000v 00 04 FB 005 CALLS #4, NML _$HOEXESNK : 
0 0 €9 00058 2s: BLBC STATUS, ~3$ : 0727 
52 01 09 0058 MOVL #1, MSGFLG : 0729 
OF 2€ O03 3$: BLBC MSGFLG, 4$ : 0733 
: DD 00061 PUSHL MSGSIZ : 0735 
000000006 9F 00063 PUSHAB NMLS$AB_SNDBUFFER F 
000000006 00 2 FB 90069 CALLS #2, NMCSSEND : 
04 00070 4$: RET : 0737 
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ZSBTTL "NML_LISEXESNK List executor sink no 
ROUTINE NML_LISEXESNK (ENT, INF, SNK, MSGSIZ 


lee 


; FUNCTIONAL DESCRIPTION: 


parameters’ 
= 


This routine returns permanent data base information for 


' 
all logging sinks. 
! FORMAL PARAMETERS: 
i ENT Entity type code. 
: INF Information type code. 
: SNK Sink type code. 
} MSGSIZE Address of message byte count (current and result). 
loa 
BEGIN 
LOCAL 
FLDADR 
FLOSIZE, 

SGFLG, ! Response message flag 
SRCPTR, ! Source block pointer — 
BLKDSC : DESCRIPTOR, ! Event parameter descriptor 
KEY : WORD ! Record key 
RECDSC : DESCRIPTOR, ! Record descriptor 
EXEC_ADDR; 

MSGFLG = FALSE; ! No response messages 


Add executor parameters to the output message. 


KEY = 0; 
IF NMLSMATCHRECORD (.NMLSAB_ENTITYDATA CNMLSC_SINK, EITSB_FILEID), 


WAL 568_RECOF OSC, 
NAIL SAB _ENTITYDATA CNMLSC_SINK, EITSW_KEYJ, 1, SNK, 
0 0, ! No qualifier 
rEcDSc) 
BEGIN 
MSGFLG = TRUE; ! Set response message flag 


SELECTY INF OF 
NMLS$C_SUMMARY, 
NMLS$C_STATUS): 
BEGIN 
; If state parameter is defined then add it to the message. 
FLDADR = 0; 
IF NMASSEARCHFLD (RECDSC 
NMASC_PCLO_STA, 
FLOSIZE, 
FLDADR) 
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st executor sink node paramete 14-Sep-1984 NML.SRCINMLREALOG.B32; v¢ 
3 5 795 4 THEN 
3 88 a 2 NMLSADDMSGPRM teen SNOBFOSC, 
: 808 798 4 NMASC_PCLO_STA 
; 809 +38 4 NMASM-PTY_COD OR 1, 
; 810 00 4 
: B11 01 4 -FLDADR); 
; \¢ 0 END; 
: 814 4 CNML$C_ SUMMARY 
; 815 05 NMLS$C~ CHARACTERISTICS): 
; 1§ Be Z BEGIN 
; 518 +44 2 If sink name parameter is defined then add it to the message. 
: : 0 pais 4 FLDADR = 0; 
; 1 11 4 IF NMASSEARCHFLD (RECDSC 
; 8 g OB1¢ 4 NMASC_PCLO_LNA, : 
: 8 081 4 FLOSIZE, 
3 ase 0814 4 FLDADR) 
: 825 0815 4 THEN 
3 B37 Bai8 ? NMLSADDMSGPRM (NML$GQ_SNDBFDSC, 
; 828 OB18 & NMASC_PCLO_LNA, 
; 89 0819 4 NMASM-PTY_ASC, 
; 830 b8 0 4 -FLOSIZE, 
; 831 0821 4 -FLDADR); 
3 aa¢ 08 ; END; 
BE eT 
: 835 0825 ! 
; ty 4 § For SUMMARY and EVENT reports, add the sink node ID. 
: 838 0828 2 iF .INF EQL NMLSC_SUMMARY OR 
; 839 0829 - INF EQL NMLSC_EVENTS THEN 
3 are 4 , NML_READ_EXEC_SINK (.INF, .MSGSIZE); 
; é 
3 § 88 § !' The executor address is zero in the permanent data base. This allows 
3 4 08 ! the database to be transportable to other nodes but not log 
3 2 3 5 events to the old executor. 
3 7 8 $ EXEC_ADDR = 0; 
3 3 B35 SELECTONEU INF OF 
> 850 0 NMLS$C_EVENTS, 
é 51 1 NMLSC_ SUMMARY): 
3 25 § BEGIN 
; 85 KEY = 0; 
; 854 4 IF NMLSMATCHRECORD (.NMLSAB_ENTITYDATA C.ENT, EITSB_FILEID), 
3 55 845 NML$GQ_RECBFDSC, 
; 28 5e8 KEY, 
3 5 84 NM 1a etnias C.ENT, EITSW_KEY], 2, EXEC_ADDR, 
3 3 73 6 " ! No qualifier 
; 85 rEcDSsc) 
3 520 THEN 
3 1 51 4 BEGIN 


F 
st executor s nk node paramete 1228 aah 90:88 78 YNML SRE WAEREALOG. 8324 
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! 
} Find the event parameter. 


BLKDSC COSCSA_POINTER) = 0; 


a 
S 

3 ; & 

$ & 

: 3 2 

3 § a IF NMASSEARCHFLD (RECDSC 

; 4 NMASC_PCLO EVE. 

4 4 4 BLKoOSe Cost W_LENGTH) 

; 59 4 BLKDSC EDSCSA-POINTERI) 

; 860 4 THEN 

3 50) BEGIN 

: °¢ SRCPTR = 0; 

; 863 ; WHILE NAL SGETNXTSNK (BLKDSC, .SNK, SRCPTR) DO 

; pee? ? MSGFLG = TRUE; ! Set response message flag 

3 O86? ° Get each event class. 

H obe8 g NML_READLOGSRC (BLKDSC, .SRCPTR, .MSGSIZE); 

3 0870 END; 

3 0871 4 END; 

; eh END; 

; 087 END; 

3 0874 TES; 

; 0875 RETURN .MSGFLG 

3 0876 1 END; ! End of NML_LISEXESNK 


O3FC 00000 NML_LISEXESNK: 
. WORD 


Save R2,R3,R4,R5,R6,R7,RB,RO 

0 9€ 0000 MOVAB NMLSADDMSGPRM, RO 

0 9E 0000 MOVAB NML$GQ_SNDBFDSC, Rg 

0 9€ 0001 MOVAB NMLSMATCHRECORD, R 

0 9€ 0001 MOVAS NML$GQ_RECBFDSC 

$ GE SOE MOVAB SSEARCHFLD 

9—E 000 MOV NAL SAB ENTITYDATA+91, R4 

4 C2 0002c SUBL2 #36, SP 

3 D4 0002F CLRL. = MSGFLG 
AE B4 00031 CLRW COKE 
AE OF PUSHAB RECDSC 

7E 7C 7 CLRQ = (SP) 

7E 04 9 LRL = (SP) 

AC OF PUSHAB SNK 

01 oD PUSHL #1 

64 3C 0004 MOVZWL NMLSAB_ENTITYDATA+91, -(SP) 
AE F 0004 PUSHAB KEY 

56 DD 46 PUSHL R 

Ad 9A 0004 MOV ZBL NAL SAB ENTITYDATA+88, -(SP) 
OA F 4C CALLS #10, NALSMATCHRECORD 

0 € 4f BLBC . 

01 »D MOVL @ ASGFLG 

AC D MOVL INF, R 

p CMPL sR, 
A C BGTRU 
E D4 E CLRL  FLDADR 


Page oa} 


0739 
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SREALOG NML Read logging parameter module hes e 4 :5 AX-11 Bliss-32 V4.0-7 P 7 NP 
yO%~000 NML_LISEXESAE Past executor sink node paramete 1ensep 1984 99: $3: 3 NML.SRCJNMLREALOG. B32: a9 9) ve 
SE DD PUSHL SP : 0791 : 
08 AE F PUSHAB FLDSIZE ; : 
4 CLRL = = (SP) : ; 
20 AE OF PUSHAB RECDSC : F 
65 94 F A CALLS #4, NMASSEARCHFLD : ; 
12 0 € BLBC ~—E_—s«aRO,,_:*18 : ; 
: DD PUSHL FLBADR : 801 F 
po 7 PUSHL # + 0796 ; 
7E 81 F 9A 00074 MOVZBL #129, -(SP) : 0799 ; 
—E D4 00078 CLRL ps : 07 ; 
10 AC DD OOO7A PUSHL M OSIZE : 079 3 
58 DD 00070 PUSHL R : 0796 ; 
69 F 7F CALLS #6, NMLSADDMSGPRM : 3 
D 2 1$: TSTL =OoR + 0804 : 
13 000 BEQL 2 : : 
02 ; D1 6 CMPL R2, #2 : F 
12 BNEQ 3 : 
E 04 00088 2$ CLRL = FLDADR : 0810 : 
E DD 0008D PUSHL + 0811 
08 AE 9F 0008F PUSHAB FLDSIZE ; 
7E 4 BF 9A 09 MOVZBL #100, -(SP) : 
0 AE OF PUSHAB REC : 
65 4 FB 000 CALLS #4, NMASSEARCHFLD : 
15 0 €9 0009C BLBC ~=s_—«aRO,_ 3S : 
6E DD 0009F PUSHL FLDADR > 0821 
08 AE pp OOA1 SHL  FLDSIZE : 0820 
7E 40 8F 9A OOOA4 MOVZBL #64, -(SP) : 0816 
7E 64 8F 9A OO00A8 MOVZBL #106, -(SP) : 
10 AC DD OOOAC PUSHL + 0817 
58 DD OOOAF PUSHL R : 0816 
69 06 FB 00081 CALLS #6 NAL SADDMSGPRA ; 
52 08 AC 00 00B4 3$: MOVL INF, R + 0828 
93 13 0008: BEQL = 4 : 
04 2 Di OOOBA CMPL Re. Ty : 0829 
0¢ 12 00080 BNEQ 5 : 
10 AC OD OOOBF 4s: PUSHL MSGSIZE : 0830 
52 Dd 000C2 PUSHL ; F 
00000000v 00 02 FB 000C4 CALLS #2, NML_READ_EXEC_SINK : 
08 AE 04 000CB 58: CLRL —«EXEC_ADDBR : 0837 
5 D3 ¢ TSTL = R2 : 0840 
9 1 0D BEQL 6$ 3 
04 2 pi 0000 CMPL = R2, #4 F 
6C 12 0000 BNEG  8$ : 
o¢ AE B4 00007 6$: CLRW SCY ; 0845 
4 AE 9F OOODA PUSHAB RECDSC 3 0844 
7E 7C 000DD CLRQ = (SP) : 
7E p4 DF CLRL =s-_ = (SP) : 
18 AE F OO0E1 PUSHAB EXEC_ADDR : 
bp £4 PUSH He ; 
50 04 ac ¢ £6 MULLS #44, ENT, RO : 0847 
AB AG F OO0EB PUSHAB NML$AB_ENTITYDATA+3(RO) F 
7E 9E 3C OOOEF MOVZ2WL a(SP)+> =(SP) : 
28 «AE «(OF OOOF PUSHAB KEY > 0844 
5 i) f SHL R ; 
7E AS A440 9A O00F MOVZBL NAL SAB ENTITYDATACRO), -(SP) ; 
6 QA F FC CALLS #10, NALSMATCHRECORD ; 
41 0 € FF LBC =—s«RO, 8 : 


H 5 
SREALOG NML Read logging parameter module 16-Sep-1984 00:29: 
yor~000 WAL _LISEX oRR Ps8t executor sink node paramete 1 =3007 1382 99:¢3: 
AE 04 001 CLAL 
AE 9F 001 PUSHAB 
AE 9F 001 PUSHAB 
7E § F 9A 001 MOVZBL 
0 AE 99F OO10F PUSHAB 
$3 4 F 11 cALLS 
B Oo € 11 BLBc 
18 AE 04 0011 CLAL 
1 AE 9F 00118 7$ PUSHAB 
of AC 0D V5 PUSHL 
4 A F 001 PUSHAB 
000000006 9 g F 124 CALLS 
E 128 BLBC 
5 01 00 001 ; MOVL 
10 AC OD 001 PUSHL 
14 AE OD 001 PUSHL 
24—C«A F 00137 PUSHAB 
00000000v 00 035 F 13A CALLS 
4 1 ape BRB 
50 B? 143 8$ MOVL 
4 00146 RET 


; Routine Size: 327 bytes, Routine Base: $CODE$ + 034C 


5 AX-11 Bliss-32 V4.0-74 
fT ENML. SRC NMLREALOG.B32; 


BLKDSC+4 
BLKDSC+4 


eucpse 
H 01, -(SP) 


#4, NMASSEARCHFLD 
RO, 8$ 


R 
ge 

4 + NML_READLOGSRC 
MSGFLG, RO 


Be Se Ge Be Se Se Se Ge Ge Se Se Ge Ge Se Fe Be Be Fe Se Se Be 


p+ 4 


5 
vat NAL _SMOEKESAR "Gnbe enecutor cine node paramete 1b-se0-1984 90:88 ta YNML SRE NAEREALOG. 83004 Page 43) 


ZSBTTL_ “NML_SHOEXESNK Show executor sink node parameters’ 


—- 


; ROUTINE NML-SHOEXESNK (ENT, INF, SNK, MSGSIZE) = 

; 891 1 I+ 

: 9 : FUNCTIONAL DESCRIPTION: 

: 94 1! This routine returns permanent data base information for 
; 895 : all logging sinks. 

; 37 | FORMAL PARAMETERS: 

: 899 8 1 i ENT Entity type code. 

5 1! INF Information type code. 

: 901 90 1! SNK Sink type code. 

: 306 4 \ MSGSIZE Address message byte count (current and result). 
: 904 638 1 i-- 

; 306 0895 > BEGIN 

: 90 

; 908 thd LOCAL 

; 909 0898 DUMDSC : REF DESCRIPTOR, 

; 910 0899 MSGFLG, ! Response message flag 
; 911 0900 NFBDSC : REF gly 

; ge 0901 P2BUFFER : VECTOR CNMLSK_P2BUFLEN, BYTE), 

5 Biz 84 P2DSC : DESCRIPTOR, 

3 915 0904 PTR ! Parameter buffer pointer 
3 a 0905 SRCPTR, ' Source block pointer 
; (91 2998 BLKDSC : DESCRIPTOR, ! Event parameter descriptor 
3 318 $38 STATUS; 

: 920 0309 MSGFLG = FALSE; ! No response pessages 

; 921 910 NMLSGETINFTABS (NMLSC_SINK, .INF, NFBDSC, DUMDSC, 0); 

: 9 : 9911 P2DSC CDSC$W_LENGTH) = NAL Sx P2BUFLEN; 

3; 9 aig P2DSC CDSCSA_POINTER] = P BUFFER; 

: : 34 NMLSBLDP2 (0, .SNK, -1, 0, P2DSC, P2DSC); 

; > $ Biz STATUS = NMLSNETQIO (.NFBDSC, P2DSC, P3, NML$GQ_QIOBFDSC); 

: 4 8 $7 IF NOT .STATUS 

: 9 i BEGIN 

; 931 9 ‘ IF .STATUS NEQ NML$_STS_CMP 

3; 9 ¢ 9 THEN 

3; 9 9 § 4 BEGIN 

3; 9 4 NML_READ_EXEC_SINK (.INF, .MSGSIZE); 

; 935 4 4 NMLSBLD_REPLY” (NMLS$AB_MSGBLOCK, .MSGSIZE); 

3 5 4 pe Tune TRUE; 

: 938 $ END; 

; 940 9 $ IF .STATUS 

$ 1 930 THEN 

3 o¢6 931 BEGIN 

3 94 g ¢ MSGFLG = TRUE; 

3 944 9 PTR = .NML$GQ_QIOBFDSC CDSCSA_POINTER]; 
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yo%~000 NML_SHOEXES R Show executor sink node paramete 12-Sep-19 4 99°88 3 NML .SRC NMLREALOG.B32; age 439 


3 5 SELECTU .INF OF 3 
3 “3 fie ; 
3 a RY 3 
3 § NMLSC“STATUSJ: ; 
; 94 3 IF .¢(.PTR)<0,32> NEQU <1 3 
; 950 THEN 3 
; i) 49 NMLSADDMSGPRM (WALSGQ SNDBFDSC, ; 
: 9 4 NMASC_PCLO_STA : 
: 954 308 NHASM-PTY_COD OR 1, ; 
: $36 348 PTR) ; 
; 94 actge ys, : 
3 $87 829 CALWAYS): F 
; 939 9468 PTR = .PTR + 4; ; 
: 961 0380 CNMLS$C_SUMMARY ; 
; 96¢ 951 NML$C~ CHARACTERISTICS): : 
: st 8326 IF g(2PTRD<O, 16> NEQU 0 : 
; 965 0954 NALSADDMSGPRM (NHLSGQ_SNDBEDSC, ; 
; 369 0956 MASC_PCLO_LNA, : 
; 968 095 NMASM-PTY_ASC, 3 
; 969 3228 PTR)<0;16>, 3 
: 970 959 + 2): 3 
; 971 446 TES; 3 
; 97 961 END; 3 
; 97 3494 ! 3 
; are 3207 For SUMMARY and EVENT reports, add the sink node ID. : 
: 97 0965 2 IF .INF EQL NMLSC_SUMMARY OR ; 
: 97 -INF EQL NMLSC "EVENTS THEN : 
; 978 NML_READ_EXEC_SINK (. INF, .MSGSIZE); ; 
: 980 ' F 
; +4 : List logging events for all sources for this sink node. : 
; $83 SELECTONEU INF OF ; 
; 985 NAL SC EVENTS, NMLSC_SUMMARY]: 3 
> 987 NMLSGETINFTABS (NMLSC_LOGGING, .INF, NFBDSC, DUMDSC, 0); ; 
: 9 Pepsc FDSCSw_LENGTH) = NMLS$K_P2BUFLEN; ; 
; 989 P2DSC CDSCSA~POINTER] = P BUFFER: : 
: 990 NMLSBLDP2 (O07 .NMLS$W_EXEADR, -1, 0, P2DSC, P2DSC); ; 
; 998 STATUS = NMLSNETQIO (.NFBDSC, P2DSC, P3, NML$GQ_QIOBFDSC); 3 
: 994 IF .STATUS THEN : 
3; 995 4 GIN 3 
: 996 4 PTR = -NALSGQ_Q10BF DSC COSCSA_PO NTERI: ; 
; 99 4 BLKDSC pose WLENGTH) = .(.PTR)<0,16>; : 
: 99 4 BLKDSC CDSCSAPOINTER] = .PTR + 2; 3 
; 4 SRCPTR = 0; | ; 
:1 4 WHILE NMLSGETWXTSNK (BLKDSC, .SNK, SRCPTR) DO : 
+ 1001 5 BEGIN : 


OFFC 00000 NML_SHOEXESNK: 
- WORD 


SREALOG NML Read Logging parameter mod 4 9: AX-11 Bliss-32 V4.0-74 Page 31 NP 
WOKe Ono NAL _SHOEXESAE anos executor dyle node paramete 1§-sep-1984 99: §3:7 NML.SRCINMLREALOG.B32; . a3 v¢ 
31 NML READLOGSRC (BLKDSC, .SRCPTR, .MSGSIZE); : 
3: 1 99 MSGFLG RUE; 3 
3 1 99 END; 3 
3; 1005 B80 END 3 
3:1 995 ELSE : 
3s 1 14 ; BEGIN 3 
; 1008 997 4 IF ~STATUS NEQ NML$_STS_CMP : 
3; 1 144 4 THEN 3 
; 1919 99 BEG : 
: 1011 1009 RAL SUL _REPLY (NMLSAB_MSGBLOCK, .MSGSIZE); : 
> 101 1001 MSGFLG = TRUE; : 
3; 101 1 i END; 3 
: 101 1 he 3 
3 1015 1004 : 
; 1016 1005 : 
; 191 1006 RETURN * MSGFLG : 
+ 1018 100 ! End of NML_SHOEXESNK : 

Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 ; 0878 : 
5B 000000006 00 9€ 0000 MOVAB NML $BLD REPLY, R11 - : ; 
5A 990000006 00 9E 0000 MOVAB AB ASGBLOCK R10 : ; 
59 99000 Vv 00 9€ 00010 MOVAB Nat eneXD EXECS SINK, R9 : ; 
28 000000006 99 9E 00017 MOVAB NAL SE RB : 

900000006 0 9€ O01 MOVAB NML$B COP R7 : 

6 0000 0006 00 9€ 000 MOVAB mete Hiatse RG F 

E FF E 9E 0002C MOVAB : 
d4 00031 CLRL MSGFLG : 0909 
E D4 00033 CLRL resp) : 0910 

04 AE 9F 99 5 PUSHAB DUMDSC : 

C AE 9F 00038 PUSHAB NFBDSC : 

52 08 aC 00 0038 MOVL INF. R2 : 

52 OD 0003F PUSHL : 

DD 00041 PUSHL : 

000000006 00 pa O43 ALLS ; ggMbSGETINE TABS F 
18 AE $8 F 9B OO04A MOVZBW #104 : 0911 
1C AE 20 AE 9E O004F VAB P BUFFER spapsc+4 3 O91¢ 

18 AE 9F 00054 PUSHAB P2DSC ; 091 

1C AE 9F 00057 PUSHAB P2DSC : 

7E D4 0005A CLRL © = (SP) : 

7E 01 CE 9 C MNEGL #1, -(SP) : 

Oc AC OD F PUSHL SNK : 

7E D4 62 CLRL SP) : 

oF 6 FB CALLS 96° PNM SBLDP2 3 
6 DD 00067 PUSHL Rg : 0915 

AE OF 69 PUSHAB P ; 

AE 9F C PUSHAB Pp : 

AE 0D $f PUSHL NFBDSC : 

8 4 F CALLS a4, NMLSNETQIO ; 

4 0 D 7 MOVL RO STAT : 
0 4 £ 7 BLBS  STATU ; 9917 
FFFFFFFO SF 4 p 7 CMPL statu US. #-16 > 0920 

14 8 BEQL 1$ 3 
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NML_SHOEXES Ow executor sink node paramete 14-Sep-1 
10 Ac DD 4 PUSHL MSGSIZE 3 0923 
53 DD 7 PUSHL Re : 
69 FB 9 CALLS #2, NML_READ_EXEC_SINK : 
10 AE DD ¢ PUSHL MSGSIZE + 0924 
A DD F PUSHL : 
68 ( F 1 CALLS He, NMLSBLD_REPLY : 
p 34 MOVL #1, RO + 0925 
5D 4 €E9 00098 1$: BLBC STATUS, 5$ + 0929 
33 34 9 98 2$: MOVL #1, MSGFLG : 3 : 
06 AB D 9 MOVL § NML$GQ_QIOBFDSC+4, PTR + 093 
01 3 pt A CMPL Re. #1 + 0936 
A OOOA BGTRU F 
FFEFFFFFF 8F 6 D1 QOOA CMPL (PTR), #-1 : 0938 
1A (13 OOAE BEQL «6s 3$ ; 
53 DD 0008 PUSHL PTR + 0945 
1 DD 00082 PUSHL #1 + 0940 
7E 81 8F 9A 000B4 MOVZBL #129, =(SP) + 0943 
E D4 000B8 CLRL = = (SPS + 0940 
10 AC DD OOOBA PUSHL  MSGSIZE + 0941 
000000006 00 9F 08D PUSHAB NML$GQ_SNDBFDSC + 0940 
000000006 09 6 FB 00¢ CALLS #6, NMCSADDMSGPRM : 
5 4 CO OO0CA 3$ ADDL ‘ PTR + 0948 
: D5 000CD TSTL : 0950 
g 13 OO0CF BEQL «= 4 ; 
02 D1 00001 CMPL = R2, #2 ; 
2 if 90004 BNEG 5$ : 
63 B85 00006 4$ TSTw (PTR) + 0952 
1E 13 00008 BEQL 5$ ; 
02. =A of 900A PUSHAB 2(PTR) + 0959 
7E 6 C 000DD MOVZWL (PTR), - + 0958 
7E 40 8F 9A 000E0 MOVZBL #64, -(SP) + 0954 
7E 64 8F 9A O00E4 MOVZBL #106, -(SP) F 
10 AC pp 00E8 PUSHL  MSGSIZE : 0955 
000000006 00 9F 000EB PUSHAB NML$GQ_SNDBFDSC : 0954 
000000006 00 06 F OOF | CALLS #6, NMCSADDMSGPRM ; 
é DS OOOF8 5S: TSTL = R2 > 0965 
05 13 OOOFA BEQL 6 46$ ; 
04 38 D1 O00FC CMPL = R2, #4 + 0966 
08 12 O00FF BNEQ 7$ ; 
10 AC DD g191 &$ PUSHL MSGSIZE : 0967 
52 OD 104 PUSHL ; 
69 02 FB 001 CALLS #2, NML_READ_EXEC_SINK : 
: 109 7$: TSTL + 0974 
1 BEQL «= 8 ; 
04 D4 1 CMPL Re. rT ; 
} 11 BEQL : ; 
0094 31 0011 BRW 1$ ; 
7E p4 115 8$: Ls = (SP) : 0976 
04 AE 9F 0011 PUSHAB DUMDSC ; 
C AE 9F OO11A PUSHAB NFBDSC ; 
52 DD 00110 PUSHL Re ; 
1 DD OO11F PUSHL # ; 
000000096 00 5 FB 00121 CALLS #5 NAL $GET INF TABS ; 
18 AE F 38 128 MOVZBW #164, P2DSC : 0977 
1C AE AE 9E 001 2 MOVAB PoBUFFER, P2DSC+4 > 0978 
AE 9F 901 PUSHAB P2DSC : 0979 


mtg 


NML_SHOEXES 


67 


—— 
+o 
S 
m 


000000006 00 
29 

00000000Vv 99 
5 

FFFFFFFO 8 68F 


6 
55 
50 


3; Routine Size: 429 bytes, 


NAL Read lo ging parameter mod 
how executor s 


rE 00000000' Op 
3 


Routine Base: 


1c bE bh é 

I 

D4 00144 

FB 128 

D 0014 

AE 9F 00148 

AE 9F 0014 

Se Ra 

53 09 157 

4 € 153A 

04 =A 4 15D 

6 161 

02. =A ; 165 

OC AE 16A 

OC AE OF 190 
OC AC 0D 001 

18 Ag +4 tte 

8 £5 O10 

10 AC DD 0018 
1 AE 0D 001 

aa: 

Oi 50 019 

8 11 0019 

4 01 0019 

0B 13 0019C 

10 AC DD 0019E 

5A DD OO1AI 

O02 FB OO1A3 

01 DO OO1A6 

35 ? O1A9 

4 OO1AC 


SCODES + 0493 


” 
y\e \$- 
nk node paramete 14- 


5 
Se 


9$: 


10$: 


11$: 


Sep-198¢ 12:50:18 — ENML+SRCINALREALOG-B3¢ 


#1, =(SP) 
NMC SW_EXEADR, -(SP) 
=(SP) 
#6, NMLSBLDP2 
Pp 
P2DSC 
NFBD 
#4, NMLSNETQIO 
ATUS 
Q’Q10BFDSC+4, PTR 
» BLKDSC 
BLKDSC+4 


=—4-~-OCM2ZM 
7 ra te) 


BLKDS¢ 
#3, NMLSGETNXTSNK 
RO, 11$ 

MSGSIZE 

SRCPTR 

BLKDS¢ 

#3, NML_READLOGSRC 
#1, MSGFLG 

STATUS, #-16 
MSGSIZE 

#2, NM $BLD_REPLY 


#1, MSGFL 
MSGFLG, RO 


De Se Se Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Be Ge Be Se Se Se Ge Ge Se Ge Be Ge Bs Se Ge Fe Be Be Ge Fe Ge Se 


ren 8 


0981 


nN 5 
NMLSREALOG NML Read Logging arameter module Jo~se0= 138% 90: 88:33 oe Bliss-32 V4.0-74 
v04- NML_READ_EXEC_SINK Read sink node ID 14-Sep-1984 12:50:1 NML .SRCJNMLREALOG.832; 
; 1020 1 ° 1 ZSBITL ‘NML_READ_EXEC_SINK Read sink node ID' 
; 13 1 : : ! ROUTINE NML_READ_EXEC_SINK (INF, MSGSIZE) : NOVALUE = 
: 1058 1011 1 t+ 
: 1024 1 \§ 1 ! FUNCTIONAL DESCRIPTION: 
: 1025 1015 1! This routine adds the sink node id to the NICE response 
; 10 § 1014 1! message. 
; 10 1015 1! 
; 1028 1 1 1 ! FORMAL PARAMETERS: 
; 1029 1017 1! INF Information type code. 
3 + 94 ! MSGSIZE Address message byte count (current and result). 
: 10 ; i$ 0 1 !-- 
: 1084 1052 2 BEGIN 
3; 1035 10 : 
: 1938 1024 LOCAL : 
: 103 1025 STATUS; ! Routine completion status 
; 1038 10 $ 
3; 1039 10 ! 
3 re + : Get executor node address. 
: Hk 4 See STATUS = NMLSGETEXEADR (NMLSW_EXEADR); 
3; 1044 1336 ! Add the sink node id to the message if it is required. 
3; 1045 103 } 
: 1046 1034 IF .STATUS THEN 
: 1047 1035 N 
3 1048 1036 SELECTONEU .INF OF 
3 1049 1037 ET 
3; 1050 1038 NML$C_EVENTS 
3 1051 1039 NMLS$C_SUMMARY: 
; 1936 1040 4 N 
; 105 1041 4 nml_format_sink_in_NICE (.nml$w_exeadr, .msgsize); 
3; 1054 Hd ; ND; 
3; 1055 104 TES; 
: 1056 1044 2 END; 
3; 1057 1045 1 END; ! End of NML_READ_EXEC_SINK 
0004 90000 NML_READ_EXEC_SINK: 
«WORD Save R2 
52 00000000' 99 ry 308 MOVAB NMLSW_EXEADR, R2 
DD 6000 PUSHL 
000000006 00 1 4) 000 CALLS @# WAL SEE TEXEADA 
18 0 € 1 BLBC =: STATUS, 2$ 
5 04 =A b9 1 MOVL NF, RO 
9 19 BEQL 
04 0 »} 1B CMPL RO, #4 
0D 12 1 BNEQ 2s 
08 iA D 1$: PUSHL MSGSIZE 
43 6 C MOVZWL NMLSW_EXEADR, -(SP) 
00000000v 0 B 00026 CALLS #2, NAL_FORMAT_SINK_IN_NICE 
04 0002D 2$: RET 
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VOU=0H0 NAL READ_ENEE.SINE™ Read’ sink node 1D is80-198 3568:%8 = ENAC See WAcREALDG- 830: 4 a 


; Routine Size: 46 bytes, Routine Base: SCODES + 0640 


_ 

a 

- Fre 
2» 

me 


g 
BS $3 


SE8g57885 


“ANS 


OOoooooooc0oc0o 
WN O ODONOUSWwN—O 


oN 


DONA VSWN “OO VOOENOUNS WN" OVOOnO 1 


Piatti tottats 


SEER 


oOoOoCoCooCooO 
oUe 


oo 
SS3S 
oo 
ee) a i ee 
FW CO VONOUSWN—O 


SSS3S33 


SeNOU 


DOOOCOCOOCOCOCOCOCOOOCOOOCCOCoOOoO 


SSSsS 
Fun 


SSLESRENLS 
© 


SE333 


ee a a ee ee me a a a a a ed ed es ed = = 2 8d 8 = = = as 4 9 I 
ee a me ee me me ee ee ee a ee a ed ae ed wd ed dd od dd dd td 


Od ed a a et 


ot oe ot 
—— 


RS 


DSNK st logging sink node paramete 14-Sep-1984 


ZSBTTL "NML_READSNKNOD List Logging sink node parameters’ 
ROUTINE NML_READSNKNOD (ENT, SNK, SNKADR, BLKDSC) : NOVALUE = 


'o4 


i FUNCTIONAL DESCRIPTION: 
Read sink node information from the permanent or volatile data bases. 
FORMAL PARAMETERS: 
ENT Entity type code. 
y 


SNK Sink type code. 
SNKADR Address of sink node. 
BLKDSC Event parameter descriptor. 


BEGIN 


P 

NML$GB_OPTIONS : BBLOCK (1), 

SNKADR™: WORD 
BLKDSC : REF DESCRIPTOR; 


CAL 
ENTDSC : DESCRIPTOR, ! Entity descriptor 
EVTPTR : REF BBLOCK, ! Pointer to event block 
MSGFLG 
MSGSIZE, ! Message size 
MSKBUF : VECTOR (8, BYTE], ! Event mask buffer 
SRCPTR : REF BBLOCK; ! Pointer to source block 


If this sink node is the executor node then skip it. Note that the 
executor node address in the permanent data base is stored as zero. 
This allows the logging database to be transportable to other nodes. 
F 1771? eeetllaaa CNMASV_OPT_PER] THEN 
IF .SNKADR EQL 0 THEN 
RETURN; 
END 


LSE 
IF .SNKADR EQLU .NMLSW_EXEADR THEN 
RETURN; 


Set up the entity descriptor. 


ENTDSC [DSC$W_LENGTH] = 1; 
ENTDSC CDSCSA_POINTER] = SNK; 


Set message flags. 


MSGFLG = FALSE; ! No response messages 
NML$AB_MSGBLOCK pees FLAGS = MSBSM_ENTD_FLD; 
NMLSAB-MSGBLOCK [MSBSB-CODE] = mMASC”STS_SUC; 
NMLSAB_-MSGBLOCK CMSBSA_ENTITY] = ENTDSC; 


6 
d logging parameter module 1b-se -1984 00:29:5 AX-11 Bliss-32 V4.0-74 
Rap ak : 90: 48:7 ENML. SRE NMLREALOG.B32: 


NML_READSNK st logging sink node paramete 14-Sep- 


Build the message. 
WMLSBLD REPLY (NMLSAB_MSGBLOCK, MSGSIZE); 
Add sink node id parameter to message. 


1 
1 
1 
1 


ml format_sink_ in NICE (.snkadr, msgsize); 
List logging for all sources for this sink node. 


SRCPTR = 0; 
WHILE NMLSGETNXTSNK (.BLKDSC, .SNK, SRCPTR) DO 


Get each event class. 
NML _READLOGCRC (.BLKDSC, .SRCPTR, MSGSIZE); 


7 Send the message. 


iF .MSGFLG THEN 
NMLSSEND (NMLSAB_SNDBUFFER, .MSGSIZE); 


RETURN NML$_STS_SUC 
END; 


a dd 
a dd ad dd 
SODNA NEW (OC OODNA VE" OOONOULEW 


Pre 


5 
8 
5 
; 


et a te ed nt tt td et dd a 8 wd St tt 
a tt tt ts a 8 td ss 8 td ds te 


WRoRonononononononon) 2] 3 3 3 2 MODOC OOOO 


— 


! End of NML_READSNKNOD 


001C 00000 NML_READSNKNOD: 
WORD 


54 000000006 0° 9E 0000 MOV 
5 1 ¢ 000 SUBL 
oc AC 000C MOVZWL 
000000006 00 95 00010 TSTB 
4 1 on i8 BGEQ 
¢ Dd Bat TSTL 
07 11 Bie BRB 
52 00000000" 00 ° OO1C 1$: CMPW 
68 2s: BEQL 
10 AE 1 8 MOVW 
14 AE 08 A E 9 MOVAB 
53 D4 CLRL 
64 1 8 MOVL 
04 AG 01 MOVB 
14 AG 10 AE 9E MOVAB 
04 af oF C PUSHAB 
j DD F PUSHL 
000000006 00 2 FB 4) CALLS 
04 AE 9F 8 PUSHAB 
H DD 4B PUSHL 
00000000v 00 FB 40 CALLS 
6E 04 54 CLRL 


Dd 6 
wah SRE ALOG NML Read Logging arameter module 19- se0- 138% 90: 83:3 


AX-11 Bliss-32 V4.0-7 4¢ 
NML .SRCINMLREALOG.832; 


MSGFLG = TRUE; ! Set response message flag 


Save R2,R3,R 
NML SAB ASabLock. RG 
#24, SP 


2 
SNKADR, R2 
NMLSGB_ OPTIONS 


R 

2 

NMLSW_EXEADR, R2 
5$ 


#1, ENTDSC 
SNK ENTDSC #4 


MSGFL 
#6, Nit $AB MSGBLOCK 
#1 AB_ASGBLOCK+4 
ENfosc,. NACSAB” ASGBLOCK+20 


R 
#2 NL SBLD _REPLY 
mes és1 

NML_FORMAT_SINK_IN_NICE 
SACPTR 


1114 


NMLSREALOG NML Read logging parameter modul 

vOL~000 NML_READSNKNOD est Logging sink node paramete 

5E 0D 

98 AC DO 

AC 0D 

000000006 jf i 3 

4 AE BF 

4 AE DD 

0 aC oD 

00000000v 00 ro 

10 B E9 

ge 4 pp 

rere 0G 8 F 

000000006 fe 


; Routine Size: 145 bytes, Routine Base: S$CODES + 066E 


16- sep-19 4 t 9: $3 


14-Sep-1984 


\ 


i 


74 


5$: 


af AX-11 Bliss-32 V4.0-74 
0:1 NML . SRC JNMLREALOG.B32; 


B 
#5, NMLSGETNXTSNK 
, » 4$ 


v'um 
Uae 
om 


+ NML_READLOGSRC 
PsGets 5$ 
M 


NML$AB_SNDBUFFER 
#2, NMCSSEND 
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(14) 
1115 


Read Logging parameter module 16-Sep-1984 90:98:33 AX-11 Bliss-32 Ne -O3509 vege iy 


mm 


33 
Tr 


format sink in NICE Format sink node for 14-Sep-19 21 NML .SRCINMLREALOG.B3 


ZSBTTL ‘nml_format_sink_in_ NICE Format sink node for NICE response message’ 
ROUTINE nml_format_sink_in_ NICE (sink addr, msgsize) : NOVALUE = 


'e¢ 
FUNCTIONAL DESCRIPTION: 


Format a sink node from the volatile or permanent logging database 
for a NICE response message. 


! FORMAL PARAMETERS: 


' 

i 

i 

i 

: 

; SINK_ADDR Node address of sink node. 

MSGSTZE Address of current response message size. 
' 


BEGIN 


sink_addr : WORD; 


LOCAL 
cm_count, 
prmbuffer : VECTOR (11, BYTE], 


ptr 

snkbfdsc : DESCRIPTOR, 
snklen 

snkbuffer : VECTOR (6, BYTE): 


' Coded multiple field count 
' Parameter buffer 

Parameter buffer pointer 
Sink node name descriptor 
Sink node name length 
Buffer for sink node name 


' 

Get sink node name. 

snkbfdsc fdsc$w_ length] = 6; 

snkbfdsc (dsc$a_pointer] = snkbuffer; 

nml $getnodnam (.sink_addr, snkbfdsc, snklen); 
Add sink node id parameter to message. 


ptr = prmbuffer; 
cm_count = 1; 


CHSWCHAR_A (2, ptr); ! Move sink node address 

i If the NCP is Phase III, zero out area numbers in the executor's 
area so they make more sense. Node numbers outside the executor's 
area will be displayed without Vormett ing the area number and will, 
therefore not be very useful, but they will be unique. 


F CHSRCHAR (nml$gb_ncp_version) LEQ 3 THEN 
BEGIN 


Cee 


Saws PUPSISISIVITIUIUIUN & 
SESSSSSSVSS RSS ESIS VHS NAA TASS ISO POL OS GIS LOSE EEE 


w 


nal $w_exeadr: BOL OFk C2), 
sink_addr: BBLOCK (2) 


IF .nml$w_exeadr Cnma$v_area) EQL .sink_addr Cnma$v_area] THEN 
sink_addr (nma$v_aréa] = 0; 


ee a ee a a ee ee ee 8 a ad od od wd od 8 = 
PI a a a ant a at at a at na a a a a Hs as a ss 4 a sd so as os as is an > ds ss is 4 ss ts 
ee ee ee a a a a a ed ed od dd = dw 


NOUS WN" OOOnNOu 


oo 
ee ee ee ed ed ad ed od ed ed dd 8d od dd td dd wd dd wd dd 
C2PCPSPCP DODD IAIN SF SIS Bo BE EEE FAN AMAIA 
wn oO 0° MEN 9 OONO UNE WRI 0 ONO EW 0 OONOU FS wr 
PRIA AAAI PPPIPPIPIPIPIPIPIPINIPIPIPIPIPIPIPIPPIPIPIPOPUPIPIPIPIPUNIIIIY 8 tt tt es 


o 
— 


6 
ing parameter module 1B-se -1984 00:29:5 AX-11 Bliss-32 V4.0-74 
9,8 Format sink node for 1 ~3007 1382 90:83 i%8 YNML.SRE NMLREALOG.B32; 


_ 
— 


tr = CHSMOVE (2, sink_addr, .ptr); 
F .snklen NEQU 60 THEN 
BEGIN 
CHSWCHAR_A (nmaS$m 
CHSWCHAR_A (.snklen 


! Move sink node name if present 
pty_asc, ptr); 


r); 
E (.snklen, snkbuffer, .ptr); 


; Add coded multiple sink node id to message. 


nmlSaddmsgprm (nmi $gq_sndbfdsc, 
.msgsize 


ee ee ee 
OWONOULS WIN -OO@ Vw 
ak kk tk dt tt 
PorRonononong 3 2 3 
SOOOOCCOOOOOOOOOOOWCD 
VEU —"COOONOUSUwT—O0OW 1 


—o 
om 


000000006 00 


nma c_pclo_sin 
nma$m_pty_cmu OR .cm_count, 
ptr = prmbuffer, 
prmbuffer); 
! End of format_sink_in_NICE 


007C 00000 NML_FORMAT_SINK_IN_NICE: 
.WORD “Save R2.R3.R4 RS »RG 


SE 0 C3 0000 UBL2 " 
AE 6 : 000 MOVW #6, SNKBFDSC 
AE 04 AE 9E 000 VAB  SNKBUFFER, SNKBFDSC+4 
5E DD 000 PUSHL 5$P 
10 AE 9F 000 PUSHAB SNKBFD 
7E 04 ac 3¢ 090 MOVZWL S1NK ADDR, =(SP) 
99 03 FB 000 CALLS #3, RMLSGETNODNAM 
146 AE 00 VAB PRMBUFFER, P 
5 oi 90 MOVL #1, CM_COUNT 
8 : MOVE #2. (PTR) 
000000006 0 00 NML$GB_NCP_VERSION, #3 


—FTDe—Oo-00oo oO 
-cComa 


09 
1 
1 
1 
3 
8 CMPB 
14 1A F BGTR 
AC 00000000° g 1 XORB3 NMLSW EXEADR#1, SINK_ADDR+1, RO 
8F A BITB RO, #252 
0 BNEQ 
aC FC «BF OBA 0004 BICB2 #252, SINK_ADDR+1 
: 04 ac 45 1$: MOVW SINK ADDR, ~(PTR)+ 
0 E 9 MOVL NKLEN, RO 
F 4C BEQL 
83 40 «BF 4 MOVE #64, (PTR)+ 
MOVB. RO, (PTR)+ 
AE MOVC3 RO. SNKBUFFER, (PTR) 
5 A MOVL * CM COUNT 
16 AE OF Hy 2s: PUSHAB PRMBUFF 
9 18 AF MOV PRMBUFFER, RO 
C SUBL PTR, -(SP) 
6 000000 F § BIS #192, CA_COUNT, -(SP) 
E F OA MOV7BL #200. -(SP) 
aC D PUSHL  MSGSIZE 
000000006 0 F PUSHAB NML$GO SNDBEDSC 
6 f CALLS #6, NMCSADDMSGPRM 


Sete Ge Se 


a oe Le ca et st rs 


RM @—MeN Ree oe 
a BSSS SSRALL SSF 


VO=0b0- =m formate 


; Routine Size: 133 bytes, 


i a t dul 
nkvih NICE * Format Sink node 


Routine Base: SCODES + O6FF 


ror Tec8eBc188E 99:98:98 RCT LaPhMatadS.we-0524% 
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es 


6 
SREALOG NAL Read logging parameter module 1b-se -1984 29:5 AX-11 Bliss-32 V4.0-74 P 4 
you WML _READLOGERC % st logging parameters 1 ~3007 1383 99:88:78 ENML. SREINMEREALOG O32; age 465 


ZSBTTL_ “NML_READLOGSRC List bogging peracerers. 
ROUTINE NML_READLOGSRC (DATDSC, SRCPTR, MSGSIZE) : NOVALUE = 


lee 
! FUNCTIONAL DESCRIPTION: 
peas Segeng source information from the permanent or volatile data 


FORMAL PARAMETERS: 


MEUM OOOO 


DATDSC Descriptor of event data. 
SRCPTR Pointer to event source block. 
MSGSIZE Current response message size. 
IMPLICIT INPUTS: 

NONE 

re IMPLICIT OUTPUTS: 

: NONE 

44 ROUTINE VALUE: 

45 COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


1 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
: NONE 
1 
1 
BEGIN 
MAP 
srcptr : REF BBLOCK; 


Fat ak ek SOS een ber a dna bap ebandae 2 be 


eee ese B NS Ab ee MOCO MAP OO See IO Uy ODE APU ee bee 


LOCAL 
cm_count, ! Coded multiple field count 
evtptr : REF BBLOEK. ' Pointer to event block 
askbuf : VECTOR (8, BYTEJ, ' Event mask buffer 


asklen 
prmbuffer : VECTOR (64, BYTE), 


ptr 
snkbfdsc : DESCRIPTOR, 


snklen 
snkbuffer : VECTOR f¢ BYTE), 
sink_addr : BBLOCK C25; 


Event mask length 
Parameter buffer 
Parameter buffer pointer 
Sink node name descriptor 
Sink node name hongek 
Buffer for sink node name 
Address of sink node 


each event class. 


t 
tr = 9: 
Enel getnxtevt (.srcptr, evtptr) DO 


ee ee ce ce ce ee ce ee ce ec ee ee ee ee ee ee a ae ee ce ce ee ce ce ce ce ee ce ee ce ee ee ee ee ee eel eel eel 


NNN NNSA AA AAA A AAD MAMAN & & & 
ee ee ee a a ee cee a ke a ee ee a ee a a ee ee ed ee eed 


PED. ANn & 


vot-ob0 


ce cme ee ee me me me ee ee em eed ed ed od dd 2d od = = 


. 


oo 


ab at a ed a a 


WWIII EPOPPORONNONONPONNNY 


ARAN LS See 


SOONOU EWN —O0O@~ 


FUN O OONOU Sw 


NML Read Logging arameter module 1b-sep-1984 90: 98:33 AX-11 Bliss-32 MA «Oa eee 


NML_READLOGSRC List logging parameters -$ep-1984 12:50:1 NML.SRCINMLREALOG.B32; 
ie ptr = prabuf ter: 
cm count = 1; 


| Get source type. 


CHSUCHAR A (nma$m_pty_co 
CHSWCHARTA Cusreptr tere $ PA Ry ptr); 


i Get source id. 
SELECTONEU .srcptr Csrc$b_srctype) OF 
nage nent. Lin, nma$c_ent_cir, nma$c_ent_mod): 
CHSWCHAR_A . pa pty. asc, eer) 
CHSWCHAR-A (.srcptr (Sr $b_ dleng thi, engt? 
ptr = CHSMOVE ( f.srcote sresp Beige ength 
srcptr Csrc$ 
Enns count = .cm_ count’ + 1; 
Cnma$c ent_nod): 
BEGIN 
Get sink node name. 
snkbfdsc facets length] = 
one ese dsc$a_ papetacers = eer 
pit a obs nes nam ereeer src$w “nodadrd, snkbfdsc, snklen); 
sink add? gy node] = -srcptr Csrc$w_nodadr); 
If NCP is Phase III, and the node is in the executor's 
i area, clear the area number. Nodes outside the executor's 
} area will be BIG numbers. 


ir rte (nml$gb_ncp_version) LEQ 3 THEN 


OW OOO OO O09 090009 090909 09 09 09 SI NII INI INNO OOO 
MEW 9 ODNOAOUES WN S$ OOODNAV SUM OOONO 


nml$w_exeadr: BBLOCK (2); 
IF .sink _addr (nma$v_area eG. -nml$w_exeadr Cnma$v_area) THEN 
sink. addr Cnma$v_area] = 0; 


en = CHSMOVE (2, sink kgddr Cnma$w_node], .ptr); 

C = C 3 

IF “snk ten NEQO OTH THEN ! Move sink node name if present 
CHSWCHAR_A (rmade _pPty_asc, ptr); 
CHSWCHAR-A (.snklén, ptr); 


ptr = CHSMOVE (.snklen, snkbuffer, .ptr); 
co count = .cm_ yoo + 1; 


me ea kt tk td tk td td = 8 = a St 2 2a 8 2 


ed ed dtd od I I OOO Ooooowvwvo 
ee we ww eee or or or ee rt a ot ot ot ot ot |”, | ot et et et et et 


: Get event class. 
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AbLOgeRe 9 st logging parameters 14-Sep ats 9g: $333 NML.SRCJNMLREALOG. B3e: cae 


a A shove’ Bt"): 
ptr = evtptr Cevt$Sw_class], .ptr); 
cm aE. = .cmcount + 1; 


wag 


2D 
me 


i Get event mask. 
nml$getcomfilters (.datdsc, 


-evtptr, 
-srcptr Csrc$b_sinktypel, 
mskbuf 

msk lens; 

CHSWCHAR_A (2X'20', "per; 

CHSWCHAR A (.msklen 

ptr = CHSMOVE (nsklen,. nskbut, ptr); 
¢m_count = .cmicount + 1; 


Add the parameter to the message. 
nm $addmsgprm yet go sndbfdsc, 
nmagc “pele. eve 


“pty_cmu OR .cm count, 
nptr - prmbuffer ° 


te 
BYE WN “OC OODNAULS AR "OO OONOULS WN O 
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a 2 4 ss ss ss a a a a a a a ts tt 
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prmbuf fer); 
‘ END; 
END; ! End of NML_READLOGSRC 
O1FC 00000 NML_READLOGSRC: 
-WORD Save R2,R3,R4,R5,R6,R7,R8 : 
5E AO AE 9E 00002 MOVAB -96(SP), SP : 
7E D4 00006 CLRL EVTPTR : 
56 08 aC DO 00008 MOVL = SRCPTR, R6 ; 
4040 8F 6B 0000C 1S: PUSHR &#*M<R6.S ; 
000000006 00 98 FB 019 CALLS #2, NAL $6¢ TNXTEVT F 
01 1 BLBS RO, 2$ : 
4 OOO1A RET ; 
53 1c AE 1B 2$: MOVAB PRMBUFFER, PTR : 
? ot 1F MOVL = #1 ¢ _ COUNT F 
; 1 F : MOVB ale , (PTR)+ ; 
; Ab MOVB 3(R ); (PTR)+ : 
0 Ag 9A A MOVZBL 0 ; 
01 9 F CMPB a) : 
Al BEQL = 3 : 
03 9 3 CMPB SsaRO, #3 : 
1 1F BLSSU 4 3 
04 50 91 CMPBseéRO, #4 ; 
13° «1A B BGTRU 4 ; 
40 BF 0 3$: MOVB #64, (PTR)+ : 1277 
04 AG MOVB 4(RO), (PT : 1278 
As A MOVZBL 4(R6). RO : 1279 
63 05 Ab ; 4 ove RO, 5(r6), (PTR) > 1281 
A 11 0004 BRB 6 > 1282 


6 
SREALOG NML Read logging parameter module bse -1984 00:29:5 AX-11 Bliss-32 V4.0-74 
yo~000 NAL _READLOGERC st logging parameters ~$0071 383 99:88:33 NML.SRC NAEREALOG 63204 
0 p 4$: TSTL R0 
BNEQ 7 
14 AE 6 MOVW #6, SNKBFDSC 
18 ¢ AE 9E 8 MOVAB SNKBUFFER, SNKBFDSC+4 
AE 9F PUSHAB SNKLEN 
8 AE OF é PUSHAB SNKBFDSC 
7 046 A6 3C MOVZWL 4(R6), -(SP) 
000000006 0 F CALLS #3, NMLSGETNODNAM 
9 MOVB (PTR) + 
04 A 8 MOVW 4 (RG) SINK_ADDR 
03 000000006 0 4 {3 CHP NM GB_NCP_VERSION, #3 
50 00000000' 99 06 EF 3 EXTZV #2, #6, NMLSW_EXEADR+1, RO 
50 é 06 A FD 08 CMPZ7V #10, #6, SINKZADDR, RO 
5 FCOO ; AA 00 ‘ Ite #64512, SINK_ADDR 
a8 : B0 $088 5$: MOVW SINK_ADDR, (PTR)+ 
57 D 9096 INCL _CM_COUNT 
50 06 AE D 9 MOVL SNRLEN, RO 
OE 13 0009C BEQL § 
83 40 8F 90 0009 MOVB #64, (PTR)+ 
Ba 0 90 000A MOVB RO, (PTR) + 
63 OC AE 0 28 000A MOVC3 RC. SNKBUFFER, (PTR) 
57 B6 OOAA gs: INCL  CM_COUNT 
83 02 90 OOOAC 7$: MOVB  (PTR)+ 
83 00 ef BO OOOAF MOVW  @EVTPTR, (PTR)+ 
6 0083 INCL  CM_COUNT 
08 AE 9F 000B5 PUSHAB MSRLEN 
60 AE 9F 00088 PUSHAB MSKBUF 
7E 02 A6 9A 000BB MOVZBL 2(R6), -(SP) 
OC AE DD 000BF PUSHL  EVTPTR 
06 AC ODD O0¢2 PUSHL DATDSC 
000000006 00 5 FB 000C CALLS 3 NMLSGETCOMFILTERS 
83 0 90 doce MOVE #32, (PTR)+ 
83 08 AE 30 OCF MOVE MSKLEN, (PTR)+ 
63 5c AE 08 AE 28 00003 MOVC3  MSKLEN, MSKBUF, (PTR) 
5 b6 0009 INCL CM_ COUNT 
1¢ «AE 9F G00DB PUSHAB PRABUFFER 
50 20 A % OODE MOV PRMBUFFER, RO 
7E 5 50 C3 O00E SUBL3 RO, PTR, -(SP) 
7E 57 000000c0 = FF 9 O0E6 BISL3 #192, CM_COUNT, -(SP) 
7E C9 BF 9A OOOE MOVZBL #201, -(SP) 
O¢ AC OD OOOF PUSHL MSGSIZE 
000000006 00 9F OOF PUSHAB NML$GQ_ SNDBFDSC 
000000006 00 re F CALLS #6, NMCSADDMSGPRM 
FF : 010 BRW 1$ 
4 0010 RET 


; Routine Size: 262 bytes, Routine Base: $CODES + 0784 
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3 tee Time: 


; povenee/CPU-Mte: 
; Memory Used: 182 
; Compication Complet 


why SRE ALOG NML Read Logging arameter module 
NML_READLOGSRC List logging parameters 

3 36 1348 1 END 

: 1348 1 

: 5 1349 0 ELUDOM 


PSECT SUMMARY 
Name Bytes 


SOWNS 76 
SCODES 2186 NOVEC,NOWRT, 


NOVEC, WRT, 4 oNOEXE ,NOSHR, 


Library Statistics 


File Total idaded 
-$255$DUA28 :CNML Paint is t3¢i! 341 
“$255$DUA28: (SHRLIBINMALIBRY.L 32; 1 887 
“$255$DUA28 SESYSLIBISTARLET .. 32; th 9776 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NMLREALOG/OBJ=OBJ$:NMLREALOG MSRC$:NMLREALOG/UPDATE=(ENHS :NMLREALOG) 
3 Size: 2186 code + 76 data bytes 
un T 0 9 


0: 
01 
; Lines/CPU Min: § 
1 
4 


oO Ans 


soc198e 09:20: 


! End of module 
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ma 
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